ERRATA: The Rainbow Book Of Adventures 



For those who purchased early copies of The Rainbow 
Book Of Adventures, the gremlin got us again. Please note 
these corrections for the book. 



Horror House (Vixgcs 10 1 3): A poriion ol lines 90 :iiul 100 
was inadvertently inserted in the middle ol line 240 in the 
listing on Page 12. I o get the correct version, type in lines 90, 
100 and 240 shown below instead ol the \crsion gi\en in the 
book. 

90 NI=12:DIMI*<NI) ,L1<NI> ,M<NI) , 
W«<NI) ,S<NI) :F0RI=1T0NI:READI*(I 
) ,L1 <I> ,M<I> ,W*<I) ,S(I> :NEXTI:DA 
TACASSETTE TAPE, 7, , WRITING "5452 
532D3830" , , BED, 9,1,,, COMPUTER, 16 
,1,IT IS A 64K COLOR COMPUTER.,, 
CLOSED DOOR, 26, 1 , , , STATUE, 25, 1 , I 
T LOOKS HIDEOUS. ,, SWORD, 12, 
100 DAT AWRI TING "MONSTER SLAYER" 
,,PILE OF JUNK,, 1, YOU SEE A RED 
COIN. , ,KEY, , , IT LOOKS OLD., 1, RED 
COIN,,, IT IS RED. ,1, BLUE COIN,, 
,IT IS BLUE.,, GOLD COIN, 28,, IT I 
S PURE SOLD. ,, VENDING MACHINE, 27 
, 1,WRITING"DRINK CREATURE COLA." 



240 INPUT" WHAT NOW" ; C»: V«-LEFT« 
<C*,3) :N«=MID*<C*, INSTR(1,C«, " " 
> +1 , 3) : IFV«="LOO"THENIFN«="LOO"T 
HEN140ELSEF0RX=1T0NI : IFLEFT* ( I» ( 
X ) , 3 X >N*THENNE X T : G0T0490ELSE I FL 
1 ( X ) OL ANDL 1 ( X X >-5THEN500ELSE I 
FW*<X>=""THENPRINT" YOU SEE "Q%" 
. " : GOTO 1 70ELSEPR I NT " " W* ( X ) 

One Room (Page 58): The keybox incorrectly reads I6K 
ECB. l^ie program actually requires 32K Extended Color 

BASIC. 

Lighthouse Adventure {Page 23): The program has no mis- 
takes and runs fine as is, but author Chris Wilkinson sug- 
gests that you might wish to rewrite line 44. "The only 
change is the message, but it makes a lot of difference." 
His suggested rewrite: 

44 IF L=6 AND I*="U" THEN PRINT" 
THE CHEST IS IN THE WAY.":SOT031 

Keep in mind that this will alter the checksum if you are 
using the Rainbow Check typing aid. Chris adds that, for 
a I6K machine, one should POKE 25,b:NEW before 
CI. OA Ding. 
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FOREWORD 



The Adventure Adventure 



Almost from the start, this Adventure book was an Adventure unto itself. 
The plain truth of the matter was that almost from the time the Rainbow was born, we wanted to produce some sort 
of an Adventure book. And finally, yes, finally, here it is. 
A large number of people contributed their talents to this book, and you can see their names on the masthead. They are to 
be congratulated for collaborating to produce the book you are holding in your hands now. But it was sometimes a rocky 
road and our editors, artists and contributors sometimes thought, I am sure, that they were in the infamous maze with 
twisty passages all alike — and no vending machine to recharge flashlight batteries anywhere. 
Am I getting ahead of myself? I'm sure I am. 

The idea for The Rainbow Book Of Adventures began before there was even a Rainbow. Thanks to Scott Adams, Byte 
magazine and those wonderful people who brought you the original Adventure on the big mainframes. 

"Wouldn't it be nice," dreamed I one day, "if there could be a whole book of Adventures just for the Color Computer?" 

I had just finished readm^Byte's Adventure issue of December, 1981, and seen one of Scott Adams' famous Adventures 
on an Apple computer at my not-too-friendly local computer store. Just the day before I had discovered how to get by the 
snake in the Colossal Cave. But I wanted to play an Adventure on my CoCo. 

None to be had. So I wrote one. Just to see whether I could do it. Name: V ampire!V\ay 'm^ time: Around 30 minutes. But I 
did learn how to move things around, including myself. 

(I know, you want to know what happened to Vampire! So do 1. 1 let a friend market it for me and it sold, I think, about 
three copies. Besides, working on the thing late at night was scary, anyway.) 

Suddenly, like an Arab who folds up his tent and steals away into the night, rode an Adventurer out of the west. Ron 
Krebs was (and still is) his name, and he came up with the first two Adventures in machine language for the Color 
Computer, marketing them under the name Mark Data Products. Were they great? Yes they were. And still are. 

But I digress. I usually do, which is why they don't let me write very much around here. . . 

Well, yes, it would be nice if we could have a book of all Color Computer Adventures. But there weren't many out there, 
so we began publishing a magazine called the Rainbow instead. (This isn't exactly how it happened, but it is close enough.) 

As the Rainbow grew, we started to get some Adventure submissions, and, pretty soon, started an Adventure contest. We 
decided that each winning entry would be published in a book. And here it is. 

I hope this will be but the first of a number of Adventure books that we will publish; along with a series on simulations, 
too. But, that's in the future and this is now. So, other than wanting to do it, why a book on Adventures? Is it like Mt. Everest, 
climbing it just because it is there? 

Everyone craves an Adventure but few of us have one. I'm fortunate, I've had many. I've trudged through the moors with 
Sir Randolf and tried to Escape From Sparta. I've snuck throng a. Dungeon Adventure, peeked here and there in aHorror 
House and even met the famous Dr. Avaloe. 

In doing all of this, I've had to be quick-witted, fast on my feet (while sitting down, of course) and exceedingly careful of 
all manner of nasties. I've been places I've never dreamed, seen things I've never believed and, sometimes, beaten them all. 

And with it all, I've had fun. No, make that fun. 

Now you can experience it all, too. Just turn the page, there's an Adventure waiting just a few sheets of paper away. 

Thank you for helping us make a years-ago dream come true. 

Enjoy! 



— Lonnie Falk 
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A Look at the "Lucky Thirteen" 

By Jim Reed 
Rainbow Managing Editor 



A preview of the winning selections in this book. 




rom New York to California, Wisconsin to Florida . . . from Sawmill Road to the 1 2000 block of West Balboa Drive, 
from mid-America and central Canada, too . . . from 4K to 32K . . . graphics and non-graphic . . . the entries in the 
first annual Rainbow Adventure Contest came in. 



What a variety! A plane crashes in the jungle ... a love boat island hops ... a carpet flies ... a horse runs away ... a Trans 
Am car needs a driver ... a space station seems to run itself Throw in a heaping helping of creaky old mansions, eerie 
castles, underground tunnels and traps, traps, traps. 

You think judging an adventure contest is easy, do you? Well, we've been thrown in pits, bitten by snakes, blown to bits 
by a self-made bomb, flash-fried by dragon breath, caught in cobwebs, surrounded by fire, poisoned by arrows, needles and 
spiders, drowned in blood, nibbled on by piranha and crocodiles, hacked by an axe, strangled, shot, beheaded, eaten alive 
and brutally slain by every monster imaginable: dragons, zombies, lizards, hydras, giants, robots, demons, harpies, trolls, 
wererats, burglars, wizards, and even ants. Invariably, a replay of an adventure is simply death warmed over. 

The funny thing about all this is that you can hardly wait to get your turn at bat, can you? Well, your time is coming — in 
this, The Rainbow Book of Adventuresl For your personal pleasure and family entertainment, we have selected from the 
dealers of death the very best architects of annihilation. 

Heed these words, though: the goblins will surely get you, even if you do watch out. So, get your personal affairs in order 
before embarking on this journey to death's door, and beyond. 

Well, there are some lighter moments, even when the shadow of death darkens your path. Let's see, we seem to recall 
being stung on the nose by a bee, stumping our toe or kicking a door, having a carved pumpkin fall on our head, being 
devoured by a man-eating soup can and having an evil scientist's experiment turn us into a microwave oven. Your kind of 
fun, you say? Well, read on and we'll give you the lowdown on these high adventures. 

Naturally, the love of money is the root of all this evil. And, if it's treasure you're after, we have bullion by the billion, 
pearls by the basketful, valuable relics, an emerald statue and free hula lessons. There are also fiery diamonds that'll singe 
your fingers, rubies for rubbing, a gold knife that's hot merchandise, a sack of marbles and enough red herring to divert a 
hungry bear. But, while we believe wealth is its own reward, you'll pay dearly as you search for the pots of gold. 

Well, enough hyperbole. Let's talk results. Let's announce the winners. Let's distribute the prizes. Let's experience these 
adventures for ourselves. 

We've painstakingly whittled down the numbers to settle on a baker's dozen for our first — and what we hope will be 
annual — Rainbow's Book of Adventures. Here, in alphabetical order, are the Lucky Thirteen — all of whom have received 
prizes, and from whom we have singled out the winners, runners-up and a number of special honorable mentions. 



GREGORY CLARK of Syracuse, New York, for Sir Randolf of the Moors 

DON DUNLAP of Reynoldsburg, Ohio, for The Polynesian Adventure 

CHRIS HARLAND of Regina, Saskatchewan, Canada, for The Deed of the York 

ROBERT W. MANGUM, II of Titusville, Florida, hv Horror House 

JORGE MIR of New Berlin, Wisconsin, for Dreamer 

JORGE MIR of New Berlin, Wisconsin, for Oneroom 

JUSTIN PAOLA of Berkeley, California, for Search for the Ruby Chalice 

GREGORY RICKETTS of Columbia, Ohio, (or Dungeon Adventure 

JEAN ROSEBOROUGH of New Berlin, Wisconsin, for Door 

STEVE SHERRARD of Normal, Illinois, for Dungeon Adventure 

SCOTT SLOMIANY of Downer's Grove, Illinois, for Dr. Avaloe 

RICK TOWNSEND of Bettendorf, Iowa, (or Escape from Sparta 

CHRIS WILKINSON of Larchmont, New York, ior Lighthouse Adventure 



We have included An Unexplored Mansion by Tim Hanson of Saint Paul, Minn, as an extra treat. Although it was not a 
contest entry, we felt it should be included based on its merits. In this interesting Adventure, the object is to explore a 
mansion and find the fortune hidden somewhere in the estate. Hats off to Tim for this treasure! 



If you're the superstitious type, take note that Jorge Mir's name appears twice — he had two entries. So, really, only 12 
people made the final selection. Also, note that two entrants had adventures by the same name, Dungeon Adventure (one is 
graphics, one non-graphics), so we only have a total of 12 titles in the Lucky Thirteen. Finally, the inclusion of An 
Unexplored Mansion brings our total number of Adventures to 14! 

And, as merit resulting from long, hard work — rather than the whim of fortune — is what turned these entries into 
winners, we now see that the epithet "Lucky Thirteen" is an illusion of both number and kind, a quality well-suited to the 
tone of the following Adventures. 

In keeping with the great Miss America contest tradition, we'll save the royal coronation for the grand finale. First, some 
special awards and honorable mentions, then the runners-up, then the two top winners. 

THE SOUNDS OF MUSIC AWARD to Don Dunlap for The Polynesian Adventure. Not only musical interludes, but 
music from the islands. Don's entry made excellent use of the 80C's sound capability and also put others to shame with his 
artful use of colors. The Polynesian Adventure was not only easy to play, but it did not end the game when you screwed up; a 
slap on the wrist was a much-appreciated punishment by our judges who had grown weary indeed of having to start many 
games from the top every time they made a fatal mistake. We commend Don for the leniency and recommend that more 
adventure writers consider wounds and bruises or other penalties in lieu of crudely and rudely ending the program for 
every little infraction. 

THE DOOR PRIZE (what else?) to Jean Roseborough for Door. Ms. Roseborough believes there are 44 ways to open 
doors. Billed as the world's shortest adventure game, we recommend this 4K game for children; supply them noun and verb 
lists and let them learn how to spell while they're banging their heads and everything else to get the door open. (Confidential 
to JR: How about "Fire!," "Pizza," "Police," "Avon Calling," "Meter Man," or "Honey, I'm Home." 

BEST SCIENCE FICTION TROPHY to Rick Townsend (or Escape from Sparta. In this action-packed mission, your 
object is to save your creator. No desecration or sacrilege intended, it's just that you are an advanced robot yourself and you 
and all those like you need your creator to keep your springs wound and your joints oiled and whatever. Trouble is, the evil 
warlord has captured your creator. This is a computer game in which you use the space station's computers to get help and 
to locate the creator. And action! We were being shot at by an enemy robot as soon as we were beamed aboard. (Confidential 
to Rick: Space Dust, huh! A nice way to treat somebody who thought your title page was classy. By the way, your printout of 
the listing on Radio Shack's graphics printer was highly readable; not that we had to peek for help, or anything like that.) 

SPOON FEED THEM AWARD to Chris Harland for The Deed of the York. Some adventure games seem impossible to 
win, but not this one. You may use up several incarnations, but persistence will pay off if you just keep reentering this 
haunted house to find the hidden deed. If you collect even a portion of the clues and still can't find the deed, you'd better 
stick to Pong. A fun game to play, and Harland obviously has a warped mind. One minute you pinch your finger, the next 
you're a goner. (Confidential to Chris: A pizza delivery to a haunted house? You must know Rainbow's creator, Lonnie 
"plain cheese, lightly cooked" Falk. Too bad for you he abstained from the judging: you'd have won even bigger.) 

BEST TITLE PAGE CITATION to Robert Mangum II (or Horror House. A lot of work goes into title pages. Many are 
quite artistic. Some move. Some have brilliant colors. Some flash. Mangum has it all. Really, you have to see it to appreciate 
it. The judges liked the fact that you can fight the monsters vnHorror House for a bit and then split if they seem to be getting 
the better of you. You get a blow-by-blow report of your own and the monster's condition. (Confidential to R W M 11: About 
that vending machine that says "Drink Creature Cola," we lost a lot of coins in that contraption. You know, realism has its 
drawbacks; that machine is too much like the real thing.) 

THE ONE ARM TIED BEHIND YOUR BACK MEDAL to Jorge Mir for Oneroom 'mA Dreamer, a combination entry 
under self-imposed limitations. Many of you owe much of what you know about writing Adventure games to the articles 
Jorge has authored for the Rainbow, and frankly, he took us a bit by surprise in entering the contest. But, then, we did make 
a wide open invitation — it wasn't even voided in Nebraska. Well, Jorge, the mark of a good teacher is to be surpassed by 
your pupils. In effect, though, Jorge took himself out of the running by electing to submit the extremes in programming: a 
32K adventure that never gets out of the original room, and a 4K adventure that has 26 rooms. That's right, in Dreamer you 
can visit up to 26 rooms, get in a sword fight, ride a horse, get chased by a bear, take a boat ride, explore a cave, and kill 
yourself a half-dozen different ways — all in a 24-line, 4K program. On the other hand, in Oneroom, everything you need is 
within easy reach, but don't expect any easy way out. While Zfreamer is mainly for beginners, Oneroom promises to keep the 
veteran adventurers well contained. 

JORGE'S BEST PUPIL PRIZE to Steve Sherrard ior Dungeon Adventure. Go to the head of the class, Steve, and listen to 
your high school teachers. It's obvious you've been sitting on the back row writing computer programs during your English 
literature and trigonometry classes. Musty rooms? Moldy bones? Drunken guards? Oh, to be 1 6 years old, like Steve, again. 
Dungeon Adventure is a cleanly executing game based on a format printed in the July, 1 982, Rainbow. Not a thing wrong 
with that; no sense re-inventing the wheel when you have a tried and proven format. Special praise to Steve for that spacey 
musical ditty at the end of the game. It was very satisfying. Too often, we find that after successfully completing an 
adventure, defying death, conquering evil and decimating demons, we get no more than "Congratulations!" printed, and 
then a clear screen. For a change, we get a treat for a job well done. 
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RUNNER-UP (Graphics Division) to Scott Slomiany for Dr. Avaloe. This is a very interesting entry. It's a two-part 
program, done in a two-part format, calHng for two-word entries. In Dr. Avaloe, you begin inside a complex of rooms, and 
the idea is to get outside, ahve. Basically, Z)r.^iia/oe draws you a picture of the room you're in and shows your location in the 
room. Then, you hit [ENTER] to go to the text screen and you enter a two-word command. Then, it's back to the graphics 
screen to see what you've accomplished, and so forth. Adding a nice touch are the songs that are played as you leave the 
room — and leaving a room is no mean feat, by the vf ay .Dr. Avaloe is in ASCII format and takes patience to load, but it is a 
challenge. Words soon to become a catch phrase among the judges were: "You died a sorrowing death; I hope you had fun, 
though." Rule #8 was a favorite, too. It reads: "Don't do stupid things." We found this to mean "Don't do anything the least 
bit logical," in actual play. If you want to leave a room, heading for the door is a last resort. If you find a key, don't expect to 
unlock anything. You get the idea. Why did we climb into the coffin when invited? Well, in the convoluted scheme of reverse 
psychology we soon learned to live by, it seemed like a bad idea at the time — so, of course, we did it. 

RUNNERS-UP (Non-graphic Division) A tie! A stand-off between the East Coast and the West Coast. After being 
sequestered, browbeaten, and threatened with bodily harm, the judges emerged to announce that Justin Paola's Search for 
the Ruby Chalice and Chris Wilkinson's Lighthouse Adventure were deadlocked for second place and that was that. The 
Rainbow editors could decide how to diwy up the loot. Search for the Ruby Chalice is really fun to play. You and your pilot 
have landed your pontoon plane on a lake in the jungle and your objective is to find the ruby chalice and escape in one piece. 
Head hunters! Wild animals! And that (expletive deleted) snake that bites you every time you go through a key intersection. 
You can pick up and drop a variety of items, but you'd better keep that snake bite kit handy. This is an adventure we really 
"got into." It also brought more appreciative laughs than any other game for the surprises it offered, such as the memorable 
"Scream from the East." 

Then, there.'' s Lighthouse Adventure, with a pirate's log book, a musket, lots of hidden panels/doors/clues and a huge sea 
serpent. This co-runner-up adventure is baffling at times, but you keep being drawn back to it. It's addictive. The first 
objective is to search the lighthouse and its environs to find the gold. But that's only half of it; then, you have to make your 
getaway, and that's a heavy problem when you have tons of bullion. (A semaphore message to Chris Wilkinson: The British 
may jolly well call it a "trolley," but in America we call it a "dolly.") 

And now . . . TA DA . . . the winners! CONGRATULATIONS GREGORY!! And you can say that again. CONGRATU- 
LATIONS GREGORY!!, for both top winners are named Gregory. In our eternal search for relevance, we noted that our 
original announcement came as the Gregorian calendar began a new year. But enough of the Gregorian chant, let's meet the 
winners. 

In our graphics division, Gregory Ricketts is the grand prize winner for his Dungeon Adventure, which features Dungeons 
and Dragons influence, but is otherwise quite unlike anything else the judges have seen. We found it easy to understand, 
exciting to play, and a novelty among adventure games. The judges were unanimous in selectingDungeonAdventure as the 
very best entry in the graphics division. 

Gregory Ricketts is 19 years old and a freshman at Ohio State University. His sights are set on a degree in electrical 
engineering, but right now he's working part-time as a bagger at Kroger. He's a member of the Columbus and Central Ohio 
Color Computer Club and has a 32K Extended Basic Color Computer and a Line Printer VIII. He's also in the local euchre 
club. 

Dungeon Adventure will be a chore to key in, and it takes a very long time to load and create a new dungeon. More m 
sympathy than a.s a "plug," we remind you that both winning programs are available on our Rainbow Adventures Tape. 

Greg says this is the "first big program" he's done, and our hats are off to him for a superior job. We liked the title page. 
We liked the march song. We even think the funeral dirge is a refreshing change from the more frequent "Taps," at many 
games' end. We would like to have had more instructions, but we managed with those supplied. We would prefer a ROM 
Pack, thank you, to the fretfully long loading time resulting from the ASCII format, but the Dungeon Adventure is worth 
waiting for. More details, including loading instructions, are provided with the program listing. Oh, yes, the objective is 
never really stated, but it's simple; stay alive and well as long as you can. 

In our non-graphics division, Gregory Clark is the entrant, but he adds that he had a lot of help from his children in 
creating Sir Randolf of the Moors, our first-place finisher. Clark lives in Syracuse and is a technician with the New York 
Telephone Company. He bought his 32K machine a year ago, and this is his first contest. He hooks up to the TV in the 
i'amily room except when the kids are using the Atari, at which time he is relegated to the black-and-white set. "My 
11-year-old son, Kevin, helped with some of the scenarios and did the de-bugging," says Clark, "while my 13-year-old 
daughter, Terri, typed up the descriptions." Ten, single-spaced pages of documentation, mind you. 

The judges, one and all, have high praise for Sir Randolf, which takes place in a castle and has 1 0 levels of difficulty. The 
"word pictures" are well written and the adventure holds new twists at each level of difficulty. The format, which requires 
typing the verb on the first line and entering before adding the noun on a second line is a bit cumbersome, but overall the 
adventure has many great features and you learn soon enough to pace yourself to the two-line entry format. 

Congratulations to all three Clark family members for taking the top non-graphics honors. 

Now, you be the judge. Try them yourself and let us know what you think. 
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ADVENTURE HINTS 

I'm a firm believer in Socrates' adage, "Know thyself," and after playing these Adventure games, well, let's just say I 
know myself a lot better. Within the last few months of compiling this book, I have learned — by being killed 153 . . .or 
was that 154 times — to respond to life-threatening situations that the average city-dwelling woman usually doesn't 
encounter. I ran from a dragon with hot, vile breath; fought ugly minotaurs (and yes, they are a bit slimy); offered jewels to 
escape death from African headhunters and staggered to safety after being hacked with an axe from a mysterious 
disembodied arm. 

I learned when to run and when to fight, and most importantly, how to calm down and think each action through, instead 
of screaming, throwing my computer against the wall and pulling my hair out. Though, there were times when I thought I'd 
kill myself, instead of getting to know myself while plodding through all the trial and errors of these Adventure games as a 
beginner. 

One of the most important things I have found in playing Adventure games is to learn how to command action. The 
programs respond to two word verb-noun combinations, such as PUSH DOOR. As you learn which verbs the game will 
accept, write them down and use this as a guide. To move in a given direction, most Adventure games respond to north, 
south, east, and west, and usually typing the first letter of the direction is sufficient. 

So, you've started an Adventure and have eagerly explored a few directions. You went north, east, north again, but now 
you feel you are lost. If you go back the way you came, you may encounter that creature and might not escape death as easily 
the second time. To avoid this frustration, and believe me it is frustrating, make a map of the Adventure as you play. On a 
large sheet of paper, draw boxes which represent the rooms, or places you enter. Within each box, describe key items 
associated with the room and any other useful notes to help you. Draw lines to each box so you know in which direction 
each room is. This can be a life saver. 

In nearly every Adventure, I invariably get stuck at one point, and after trying every command option I can think of, I 
have found that the word HELP is the best four letter word I can use. Most Adventures have the HELP command and it can 
be extremely useful in getting you through the tough parts. 

You are standing in a dark cave and need some light. Do you still have those matches or did you drop that darned torch 
when the terrifying Grom nearly scared your pants off? Type INV (inventory) and the computer will list all the items you 
are carrying. It will tell you when you cannot carry anything more, so if you encounter an object you think may be useful 
down the road, DROP the least valuable item and get that useful object. 

Remember, these are Adventures and logic doesn't always prevail. (How many times have you been chased by a 
minotaur?) You will find some Adventures more logical than others, and thus, each game must be treated as such. For 
instance, in order to climb a stairway, you might have to throw dust on it. Use your imagination. 

Here's a tip if you don't want your friends to cheat by looking at the listings for hints: type POKE 383,158 at the end of 
each listing before you CSAVE. To return to normal listing, type POKE 383,0. 

Now that I have provided you with helpful hints to get you started with these exciting Adventure games, here is some 
important information about The Rainbow Book of Adventures. First, please note that all the BASIC program listings you 
will find in this book are formatted for a 32-character screen — so they will show up just as they do on your CoCo screen. 
One easy way to check on the accuracy of your typing is to compare what character "goes under" what. If the characters 
match — and your line endings come out the same — you have a pretty good way of knowing that your typing is accurate. 
We also have "key boxes" to show you the minimum system a program needs. But, do read the text before you start typing. 

The little cassette symbol on listings indicates that program is available through our Rainbow Adventure Tape service. An 
order form for this service is on Page 55. 

What's a CoCo? CoCo is an affectionate name which was first given to the TRS-80 Color Computer by its many fans, 
users and owners. As .such, it is almost a generic term for three computers, all of which are very much alike. When we use the 
term CoCo, we refer to the TRS-80 Color Computer, the TDP System- 100 Computer and the Dragon-32 Computer. In 
most cases, when a specific computer is mentioned, the application is for that specific computer. However, since the TDP 
System-100 and TRS-80 Color are, for all purposes, the same computer in a different case, these terms are almost always 
interchangable. 

The small boxes which you see with programs in this book are our RAINBOW CHECK program, which is designed to 
help you type in programs accurately. 

The check program itself is a machine language program which will count the number of characters you type in. You can 
then compare the number the RAINBOJV CHECK gives you to those printed in this book. On longer programs, some 
benchmark lines are given. When you reach the end of one of those lines with your typing, simply check to see if the 
numbers match. The RAINBOW CHECK program is listed on Page 81. 

I'm sure you will find The Rainbow Book of Adventures to be fun and a learning experience, as I have. So, good luck and on 
with .the Adventures . . . 



—Susan Remi'ni 
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This Polynesian vacation is more beautiful 
and exciting than you had ever dreamed, 
you thought as you sat under a swaying palm 
tree and gazed at the glistening South Pacific. It is 
an enchanting land of adventure, charm and 
intrigue that seems apart from the rest of the world. 

Each day you've been exploring parts of the 
island, collecting unique shells, rocks and flowers 
that are indigenous to this exotic paradise. Today 
you are filled with anticipation, for you are going to 
explore the east side of the island, which is said to 
be mysteriously uninhabited . . . 

Polynesian Adventure is an adventure that is 
designed to be challenging and fun for all. The 
object of the adventure is to sail the South Seas and 
gather treasures as you go from island to island. 
You then donate the treasures to the Polynesian 
Treasure House for credit. 

To successfully complete an Adventure game, 
you must collect the correct combination of objects 
to solve problems that will be presented to you. 
Some objects may have multiple uses, but others 
may do nothing. This adventure responds to one 
and two word commands. For two word com- 
mands, the verb is first, the object is second. For 
example, GET CAN or GO CAR. 

Polynesian Adventure was written to take full 
advantage of the capabilities of the Radio Shack 
Color Computer. It requires only 16K Extended 
BASIC, and makes use of the extensive sound and 
color features that make the Color Computer so 
versatile. 

For those interested in writing their own adven- 
tures, the techniques used m Polynesian Adventure 
could easily be adapted to other scripts and uses 
considerably less space than methods used by 
many other programs. 







16K 






ECB 


J.- -A 





The listing: 



^^210.. 


. 030A 




540. . 


. 07AF 




750. . 


. DC05 




1030. . 


. 10EB 




1290. . 


. 15B0 




END. . 


. 19ED 



10 B0T01530 

20 F0RAA=1T02000:NEXT 

30 CLS RND(7> 

40 PRINT@12, "YOU ARE"; 

50 PRINTe32,R«<L,0> 

60 PRINTTAB( 10) "OBVIOUS EXITS" 



( Don Dunlap has been a professional programmer for 
17 years. He is president of his employer-based com- 
puter club with nearly 350 members. He teaches 
BASIC , and also serves as a volunteer computer consul- 
tant and speaker for area schools, libraries and civic 
groups.) 



70 FOR D=1T0LEN(R*(L, 1) ) /2 STEP2 
80 IF HID*<R«(L, 1) ,D,2)="N " THE 
NPRINT"NORTH 

90 IF MID«<R»<L, i) ,D,2>-"S " THE 
NPRINT"SOUTH 

100 IF MID*<R«<L, 1) ,D,2>="E " TH 
ENPRINT"EAST "; 

no IF MID*(R*<L, 1> ,D,2)-"W " TH 

ENPRINT"WEST 

120 NEXT D: PRINT 

130 PRINTTAB<12) "YOU SEE" 

140 F0RJ=1T0NJ 

150 X«=RIGHT«(J*(J) ,2) : IF VAL<X* 
)= L THENPRINTLEFT*<J*(J> ,LEN(J» 
<J) )-2) 
160 NEXTJ 

170 PRINTSTRING*<32, 134) 
180 IFL=25THEN PLAY"T302LSL4EBO3 
L2C02L8EL4DGL2BL86L4. F«L8FF#BA; O 
3CL202BL4. G; L8DL4EGL203C02LBEL4D 
6L4 . BL8GL4 . F#L8G02BL4 . ALSF#L 16" 
1 90 I FL= 1 3THENF0R I = 1 T02 : PLAY " 02T 
4 V 1 9PSL4F V 1 5L8CV 1 9F V 1 5CV 1 9FV 1 5CV 
1 9F V 1 5CFGAAL4 . A " : NE X T : PLAY " P8V 1 9 
L4B- V 1 SLSA V 1 9B- V 1 5AV 1 9L4B-L8 V 1 5A 
L4 AL8AGFFFCCCCEEGGL IF" 
200 I FL=22THENPLAY " 02T3L4DF« AAL 1 
AL4BBL1 . AL4DF#AAL1 AL46F#L1 . EL4DF 
# AAL 1 AL4BBL 1 . AL26L2 . . . F#L4DEEL 1 . 
D" 

210 PRINT"by your command — >" 
220 INPUT C*: SOUND 100,2 
230 C*=C*+" 
240 P=INSTR(C«, " "> 
250 V*=LEFT*<C*,3) 
260 N*=MID*<C*,P+1,3> 
270 V=INSTR<AV*, V*> 
280 IFV=OTHENPRINT"SORRY I DON'T 
KNOW THAT VERB": SOUND 2,2:B0T02 
10 

290 N=INSTR(AN*,N*) 
300 IFN=OTHENPRINT"SORRY I DON'T 
KNOW THAT NOUN": SOUND 4,2:60T02 
10 

310 V=(V+2>/3 

320 ON V G0T0340,340,340,340,410 
, 420 , 490 , 530 , 550 , 590 , 630 , 660, 680 
,710,720,730,800 
330 G0T0210 

340 P=INSTR(R«(L, 1) ,LEFT*(V«,2> > 

350 IFP=OTHENPRINT"WRONG WAY CHA 

RLIE": SOUND 9,3:G0T0210 

360 L=VAL(MID*<R«(L, 1> ,P+LEN(R*( 

L, 1) ) /2,2) ) 

370 IFLO9THEN30 

380 IFS1>14THENS1=1 

390 PLAY"T101L1C":MID»(R*(6, 1),5 

,2)=MID*<S«,S1,2> :Sl=Sl+2 

400 60T030 

410 P=INSTR<R*<L, 1> ,LEFT*(N*,2) ) 
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: G0T035O 

420 IF OATHENPRINT-'YOU'RE TOO W 
EAK TO CARRY ANYMORE" : G0T02 10 
430 W=VAL(MID*<NL*,N,3) ) : IFW=OTH 
ENPRINT"! CAN'T BET THAT":B0T021 

0 

440 K=LEN(J«<W> )-l: Z=VAL<MID*(J* 
(W) ,K,2) ) : IFZOL THENPRINT"IT'S 
NOT HERE":GOT0210 

450 I FL=27 ANDN=34 ANDM I D* < J * ( 8 ) , 1 
2, 1><>"9"THENPRINT"A VOICE SAYS, 

WHERE'S MY COINS?" : G0T02 10 
460 I FL=27 ANDN=34THENM I D* < J * ( 8 ) , 
12,2)="00":C=C-1 

470 IFN=40ANDMID*(J*<10) , 16, 1>=" 
v"THENPRINT"IT'S TOO hot":G0T021 

0 

480 MID*(a*(W) ,K,2>="99":PRINT"0 
K":C=C+l:G0T030 

490 W=VAL<MID*(NL*,N,3) > : IFRIGHT 
« < J« (W) , 2) < >"99"THENPRINT"Y0U DO 
N'T HAVE IT TURKEY ":G0T0210 
500 W*-STR»(L> :K"LEN(J«(W) >-l:MI 
D*(J*<W) ,K,2)-RIGHT*(W*,2> :C=C-1 
510 IFL=1THENMID* (J* ( 1 ) , 1 1 , 1 ) ="0 
" : G0T0550 
520 G0T030 

530 IFN=7AND RIGHT* < J* (5> , 2) ="00 
" THENPRINT"YOU FOUND SOMETHING" 
: SOUND 50,9:K=LEN(J«(5) )-l:MID*< 
J« (5) , K, 2) ="33" : G0T020 
540 G0T030 

550 W=0:F0RJ=1T0NJ: IFRIGHT* <J«< J 
),3)="» 1"THENW=W+10 
560 NEXTJ:PRINT"0UT OF 100 POINT 
S, YOU HAVE"W 

570 I FW= 1 00THENCLS3 : PR I NTe266 , " Y 
OU HAVE WON"; : PLAY" T2;02L4DL2GL8 
BL8GL2BL4AL2GL4EL2DL2DL2GL8BLSGL 
2BV17L4AV2003L2. D02L4B03L4. D02LS 
B03L8D02L8BL2GL4DL4 . EL8GP255L8GL 
8EL2DL4DL2GLaBL8GV 1 7L2B V 1 5L4AL2 . 
G":END 
580 G0T0210 

590 IFL=2ANDN=46ANDFL=1THEN FM=1 
: G0T0840 

600 IFL=17ANDRIGHT*<a*<2) ,2) ="99 
"THEN WT=l:G0T0620 

610 IFL<>30RRIQHT*(J«(2) ,2><>"99 
"THENPRINT"YOU'RE MISSING SOMETH 
INQ":GOT0210 

620 FL=l:MID*(J*(2) , 11,7>=" (full 
) ":PRINT"0K":G0T0210 
630 IFL<>330RFM<>1THENPRINT"I CA 
N'T DO THAT":S0UND22,22:G0T0210 
640 L=TM: IFL=5THENTM=2ELSETM=5 
650 MID*(J*(6) , 15,2)=STR*(L) :MID 
*(R*(33, 1) ,3,2)=STR*<L) : G0T030 
660 IFRIGHT* ( J* <5) , 2) ="99"THENPR 
INT"VQUR CABIN NUMBER IS G7 AND 



YOUR TABLE NUMBER IS A1":G0T 

0210 

670 PRINT" I DON'T HAVE THAT TO R 
EAD":G0T0210 

680 PR I NT "YOU ARE CARRYING" 

690 F0RJ=1T0NJ: IFRIGHT*<J*<J> ,2) 

="99"THEN PRINT LEFT* < J* ( J ) , LEN < 

J*<J> >-2) 

700 NEXTJ:G0T0210 

710 IF L>9 THEN F0RAA=1T05: SOUND 
1,7: CLS3 : S0UND99 , 7 : CLS4 : NEX T : PR I 
NT" IT IS UNLAWFUL TO PICK FLOWER 
S YOU ARE SENT BACK TO THE BOAT 
":L=6:G0T020 

720 IF L>9 THENPRINT"STING! ! ! ":S 
OUND 1 , 1 0 : PR I NT " OUCH ,!#*•/.&' YOU H 
AVE BEEN STUNS BY A BEE. YOU ARE 
RUSHED BACK TO THE BOAT FOR MED 
I CAL TREATMENT " : L-6 : G0T020 
722 PR I NT "I DON'T UNDERSTAND" : SO 
UND22, 11 
725 G0T0210 

730 AA=RND < 5 > : S0UND24S , 6 

740 ON AA G0T0750,760,770,780,79 

0 

750 PR I NT "FILL CAN & TANK OF CAR 
":G0T0210 

760 PR I NT "LOOK COMPARTMENT" : GOTO 
210 

770 PR I NT "READING IS GOOD FOR PA 
SSES":G0T0210 

780 PR I NT "GO BOAT SOMETIMES WORK 
S":G0T0210 

790 PR INT "PICK ic SMELL BUT LOOK 
0UT":G0T0210 

800 IFWT=0ANDFL=1THENPRINT"THAT 

WOULD WASTE GAS":G0T0210 

810 IFWT=OTHENPRINT"THERE IS NOT 

HING TO P0UR":G0T0210 

S20 IFL029THEN840 

830 SOUND 200, 20: MID* < J* < 10) , 16, 

9)=" cold) ":G0T0840 

840 PRINT"OK" : MID* < J* (2) , 1 1 , 7) =" 

(empty) ":G0T030 

850 L= 1 : N J =25 : TM=5 : CLSO : SW*= " 05 " 
860 DIM R*(33, 1) , J*(NJ) 
870 PRINTa262, "pol ynesl an" S CHR* ( 
128) i "adventure"; 

880 PR I NT@297 , " BY " ; CHR* ( 1 28 ) ; " do 

n";CHR*(128) ; "dunlap"; 

890 R*(1,0)="AT A POLYNESIAN TRE 

ASURE HOUSE" : R* ( 1, 1)="S 02" 

900 R*(2,0)="0N A ROAD" : R* (2, 1 ) = 

"NEW CAO 1030433" 

910 R*(3,0)="AT GAS STATION" :R*( 
3, 1)="W 02" 

920 R* (4,0)=" IN A DISCOUNT STORE 
":R*(4, 1)="E 02" 

930 R*(5,0)="0N A PIER NEXT TO A 
B0AT":R*(5, 1)="S CA0633" 
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940 R*(6,0)="0N A LOVE BOAT":R«( 
6, 1>="N W 0507" 

950 R* (7,0)=" IN THE DINING ROOM" 
:R*(7,1)="W AlE 100B06" 
960 R* (8,0)=" AT THE TABLE" :R* (8, 
1>="S 07" 

970 R«(9,0)="IN CABIN G7":R*(9,1 
)="S 10" 

980 R*<10,0)="IN A HALLWAY FULL 
OF CABINS" :R*< 10, 1)="E G70709" 
990 R«<11,0)-"IN A SAMOAN VILLAG 
E":R*<11, 1)="B0S E 061213" 

1000 r*(12,o)="in a council HOUS 

E":R«(12, 1)="N 11" 

1010 R*(13,0)="IN A COMMUNITY HO 

USE":R*(13, 1)="W 11" 

1020 R*<14,0>>="IN A MAORI VILLAG 

E":R*<14, 1)="B0S E 061615" 

1030 R«(15,0)="IN A MEETING HOUS 

E":R*(15, 1)="W 14" 

1040 R* (16,0)=" IN A MAORI MUSEUM 
":R*(16, 1)="N E 1417" 
1050 R«(17,0)="BY a LAG00N":R*(1 
7,1)="W 16" 

1060 R*(18,0)="IN A FIJI VILLAGE 

":R*(18, 1)="B0S E 061920" 

1070 R*(19,0)="IN A CHIEF'S HOUS 

E":R*(19, 1)="N 18" 

1080 R*(20,0)="IN A FIJIAN HUT": 

R*(20,1)="W 18" 

1090 R*(21,0>="IN A TAHITIAN VIL 
LAGE":R*(21, 1)="B0S E 062223" 
1100 R* (22,0)=" IN A PRAYER HOUSE 
":R*(22, 1)="N 21" 

1110 R* (23,0)=" IN A FISHERMAN'S 

HOUSE" :R* (23, 1)="W 21" 

1120 R* (24,0)=" IN A TONGA VILLAG 

E":R*(24, 1)="B0S E 062625" 

1130 R*(25,0>«"AT A TONGAN FESTI 

VAL":R* (25, 1)="W 24" 

1140 R* (26,0)=" IN A QUEEN'S BEDR 

00M":R*(26, 1)="N E 2427" 

1150 R* (27,0)=" IN A QUEEN'S BED" 

:R*(27, 1)="W 26" 

1160 R* (28,0)=" IN A MARQUESAS VI 
LLAGE":R*(28, 1)="B0S 0629" 
1170 R* (29,0)=" IN A COOKING HOUS 
E (ha'e tumay ) " : R* (29, 1 ) ="N E 28 
30" 

1180 R* (30,0)=" IN A GUEST HOUSE 
(ha'e manahi 't) ":R*(30, 1)="N W 3 
129" 

1190 R*(31,0/="IN A TATTOOING HO 

USE":R*(31, 1)="S E 3032" 

1200 R* (32,0)=" IN A WARRIOR'S HO 

USE (ha'e toa) " : R* (32, 1 ) =" W 31" 

1210 R* (33,0)=" IN A TRANS AM CAR 

":R*(33, 1)="0U02" 

1220 J«(1)="N0THING 01" 

1230 J«(2)="A GAS CAN (empty) 04" 



1240 J*(3)="*SILVERWARE»08" 

1250 J* (4)=" A GLOVE C0MPARTMENT3 

3" 

1260 J*(5)="A BOARDING PASSOO" 
1270 J* (6) -"A TRANS AM CAR02" 
1280 J*(7)="*G0LD NECKLACE*09" 
1290 J$(B)="TONGA C0INS20" 
1300 J*(9)="*VALUABLE RELICS* 16" 
1310 J*(10)="»A GOLD KNIFE (very 

hot) *29" 
1320 J»(11)«"»EXQUISITE CARVING 
OF A FISH*23" 

1330 J*(12)="*BEAUTIFUL WOVEN MA 
T*27" 

1340 J* (13)=" A PINK HIBISCUSll" 
1350 J«(14)="*A BASKET FULL OF P 
EARLS*12" 

1360 J* (15)=" A FIRE KNIFE DANCER 
13" 

1370 J* (16)=" A COLORFUL RED TULI 
P TREE 14" 

1380 J«(17)="A BEAUTIFUL PLUMERI 
AIS" 

1390 J*(18)="*A DIAMOND HEADED S 
PEAR*19" 

1400 J*(19)="*A HAWAIIAN ORCHID* 
21" 

1410 J*(20)="A TROPICAL WATERFAL 
L24" 

1420 J*(21)="A BIRD OF PARADISE2 

6" 

1430 J*(22)="FREE HULA LESS0NS25 

II 

1440 J*(23)="*AN EMERALD STATUE* 
32" 

1450 J* (24)=" AN ACTIVE V0LCAN028 

II 

1460 J* (25)=" A GROUP OF BOY SCOU 
TS SINGING22" 

1470 AV*="N S E W GO GETDROL 
OOSCOF I LDR I REA I NVP I CSMEHELPOU " 
1480 AN*=" CANC0MPASCAR0UTG7 A 
1 NECCOIRELMATFISKNISILTANBOAPEA 
SPEORCST AH I BTULPLUPAR " 
1 490 NL*= " 0000020000050000000000 
000070080090 1201101 00030000000 1 4 
0 1 SO 1 9023000000000000 " 
1500 S*=" 11 141821242805" :S1=1 
1510 PL AY " T3V 1 5L4GFLaV20E V 1 5EEE V 
20EV 1 5EDE V20FL4 . F V 1 5L4FL8FFV20DV 
1 5DDDV20D V 1 5DCDV20EL4 . EL4 V 1 5ELSG 
L4V20EV 1 5EV20EL8V 1 5DEL4FV20FV 1 5A 
L8AAV20GV 1 5GGGV20FV 1 5FDDDL4 . V20C 
L2V15C" 
1520 G0T030 

1 530 POLE AR 1 : CLEAR5000 : G0T0S50 
1600 REM COPYRIGHTED 1983 
1610 REM BY DON & LINDA DUNLAP 
1620 REM 6840 TANYA TERRACE 
1630 REM REYNOLDSBURG, OHIO 
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Ever since John could remember, his play- 
mates always made fun of him. He was 
smaller than most boys his age and very shy. 
It seemed whatever game he played, or however 
fast he ran, he was always a loser. Yet, that never 
stopped John from trying to be one of the gang. He 
knew he couldn't ever stop striving for perfection. 

As he grew, his yearning to be the best at every- 
thing, and most importantly, the most popular, 
became an obsession. He just had to prove to the 
kids he wasn't a loser, slowpoke or "chicken." 

One day, as he was walking home from school, 
Alfred, the big bully of the neighborhood, school 
and much of the east coast, caught up to John and 
asked, "Hey, do you want to try and get into our 
club? We're letting just about anyone join . . . but we 
don't want any chickens like you!" John quickly 
retorted, "You bet, I'll get in your club. I'll prove to 
everyone I'm the best." Alfred laughed and said, 
"Well, if you want to be in our club, come to the 
clubhouse tomorrow at 4 and we'll tell you what 
you have to do." 

The next day, John headed for the clubhouse. 
On the way, he passed an old, eerie, abandoned 
house that was said to be haunted. The house was 
the oldest and biggest in the neighborhood and its 
meer appearance scared anyone. 

The windows were all broken, the lawn was 
overgrown with weeds and there was an enormous 
tree on the right side of the house with limbs that 
looked like creepy fingers surrounding and protect- 
ing the house. A rickety fence encompassed the 
property and the gate was ajar — inviting, yet for- 
boding. No one can remember anyone ever living 
there, but everyone was extremely fearful of the 
house and stayed as far away as they could. Even 
animals seemed to make a wide berth around the 
house. Some say, at times you can see a ghostly 
shadow pass a window and at night one might even 
see a candle flicker. Why hasn't anyone just torn 
the house down? One reason might be because 
whoever, or whatever entered the Horror House 
was never seen again. 

All the boys snickered when John entered the 
clubhouse. He expressed his desire to be in the club 
and so, they gave him only one thing to do — the 
hardest initiation the club had ever given. 

John must enter the old Horror House, go 
through every corner of that scary place, meet and 
destroy every ghoul and goblin who resides and 
come out alive. 

You are John's guide through this place of maca- 
bre. A computer, somewhere in the house, keeps 
these monsters alive but you cannot kill the com- 
puter. You must kill every monster and then the 



computer will explode, destroying the house. Watch 
out though, the monsters can come back to life! 

There is also a hidden secret message which does 
not pertain to the game but is just a bit of comedy 
added to this fun and ghoulish game. 

Good luck! 



mwmm 




16K 






ECB 









The listing: 



.0375 

80 0896 

190.... 0DF8 

330 12A8 

460 1732 

END . . . 1 ASS 



1 PM0DE4 , 1 : PCLS : SCREEN 1,1: A*= " BL 
7U5R2F 1 D 1 G 1 NL2F4NG2E2F2E2NF4E2 " : 
DRAW " BM65 , 1 84U7R3FDGL 1 F3DBE2DFRE 
UHLBE4D7R2EUHLBF3BR4L2HUR4UHLGBR 
5UND4FRFBF2BRU7DL2R4BR6UD4F3E2F2 
E3U4BF3R2D4L2HUER2BR2D2FR2NU3D2G 
LHBE5ND3R2FD2BE2UHL6D2FR2BR7U7F3 
E3D7BE2DFR2U3DL2BF3BRU3R2FD 

2 DRAW " BE3NRGDFR2U2D5GLHBE5UD2FR 
EU2BR2UND4FRFND2ERFD2BR5R7L2U7R2 
L7R2D7" 

3 FORX= 1 TD2 : F0RS=62T01 STEP- 1 : DRA 
W"C"+STR* (X) ■i-"S"+STR*<S>+"BMl 15, 
90"+A*:F0RM==iT010:NEXTM,S!, X 

4 P0KE359, 13:CLS:FDRX=lT0i00:PRI 
NT"*"; -.NEXT: PRINT" PRESS ANY KEY 

WHEN THE *»»***#»SCREEN IS THE 
COLOR THAT******** YOU WA 

NT. "; :F0RX=1T0292:PRINT"* 

"; :next:screeno, i: i*=inkey* 

5 F0RX=1T0100: A=RND<100) : IFINKEY 
>" "THEN6ELSENEXTX : SCREENO, Z : 2= 

-Z-* l:G0T05 

6 CLS: PR I NT: PR I NT" ROBERT WA 
YNE MANGUM I I " : PRINT: PRINTTAB ( 1 1 
) "PRESENTS" :F0RX=1T02000: NEXT 

7 CLS:PRINTe36, "H 0 R R O R H 
0 U S E":PRINT<1!69, "YOU MUST ESCA 
PE FROM THE HOUSE BY RILLING A 
LL OF THE MONSTERS. WHEN ALL 0 
F THE MONSTERSARE KILLED ALL THA 
T WILL BE LEFTOF THE COMPUTER IS 

A PILE OF REMAINS FROM THE E 
XPLOSION. " 

8 PRINT" YOU HAVE 50 HEALTH 
POINTS (HP'S) AND EACH MONSTER 
HAS 20 TO 50 HP'S. FIGHT THE M 
ONSTERS BY USING THE COMMANDS 'P 
UNCH' AND 'HIT' WHICH TAKE OFF 

HP'S. A MONSTER OR PERSON IS D 

(Robert Mangum, a 15-year-old sophomore at Astro- 
naut High School in Titusville, Fla., purchased his 
TRS-80 Color Computer when he was an eighth- 
grader. His hobbies include reading, playing the stock 
market, and writing Color Computer games. He 
aspires to pursue the latter hobby as a career.) 
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EAD WHENHE HAS NO HP'S." 

9 PRINT" PRESS ANY KEY TO CONT 
INUE."S : I*=INKEY* 

1 0 I F I NKE Y»« " " THENA-RND ( 1 00 ) : BOT 
010 

20 CLSrPRINT,," EVERY 10 TUR 

NS YOU GAIN BACK 1 HP AND EVE 
RY 50 TURNS A MONSTER IS RE INC A 
RNATED. THE FIRST TI 

ME YOU USE THE COMMAND 'R' OR 'R 
EST' YOU REGAIN ALL OF YOUR HP'S 
AND ALL OF THE DEAD MONSTERS ARE 

REINCARNATED. " 
30 PR I NT "AFTER THE FIRST TIME TH 
AT YOU USE THE COMMAND IT WILL 

DO NOTHING. ",,,,,," PRES 

S ANY KEY TO CONTINUE. ",,: I*=INK 
EY* 

40 I F I NKE Y«= " " THENA=RND < 1 00 ) : GOT 
040 

50 DIMA*<16) :A*(3)=" USE THE 

SE COMMANDS IN Y0UR":A*<4>="ADVE 
NTURE. . . ":A*(5)=" MOVE, PULL 

, OR PUSH": A* (6)=" PUT, LEAV 

E, OR DROP": A* (7)=" PUNCH 

HIT":A«<8)=" N, S, E, 

OR W INVENTORY": A* <9)«=" IN 
SERT LOOK" 

60 A«<10)=" REST OR R G 

ET OR TAKE":A*(1)="":A*<2)="":F0 
RX=11T016:A*<X>=" ":NEXT:A*(16>«" 
PRESS ANY KEY TO CONTINUE. ":F 
0RX=1T016: PRINT A* (X> : F0RZ=1T0100 

:nextz,x 

70 i f i nke y*= " " thena=rnd ( 1 00 ) : got 
070Elsecls:print:print" as you a 
s you enter the house the door 

LOCKS. " 

80 HD=10:H=50:H2=50:WD=20:DIMD*( 

30) :forx=ito30:readd*<X) :next:l= 

26:DATAE,S E W,E W,S W,S E,W,S,N 
,S,N S E,N E W,W,N E,S E W,N W,N 

S,E,S W,E,N S E W,S W,N,S E,N S 

W,E,N W,N,E,N W,N 
90 NI=12:DIMI*<NI) ,L1 (NI) ,M<NI> , 
W* (NI ) , S (NI ) : F0RI=1T0NI : READI* ( I 

) ,Li (I) ,M(i) ,w*(i) ,S(i) :nexti:da 

T AC ASSETTE TAPE , 7 , , WR I T I NG " 5452 
1 10 NM»10: DIMM* (NM) , D (NM) , A (NM> , 
H(NM> ,F(NM) ,L(NM) ,R(NM) :F0RM=1T0 
NM: README (M) , D (M) , A (M> , H (M> , F (M) 
,L<M> ,R(M> :NEXT:DATARAT,4,72,20, 
2, 13, , CRAB (GIANT) ,6,58,30, 10,21, 
, MINOTAUR, 10, 30, 50, 5, 12, , STATUE ( 
LIVING) ,6, 58, 30, , -1 , , ZOMBIE, 8, 44 
, 40, O, 28, 1 , SKELETON, 8, 44, 40, , 
120 DATA, GARGOYLE, 10,30,50, ,8, 1, 
SNAKE, 4, 72, 20, 5, 4, , ORC, 8, 44, 40, 5 
,30, , GOBLIN, 10,30,50,5, 17, 1 
130 Q0T0240 



1 40 I FL-32THENS40ELSECLS : PR I NT : P 
RINT" DIRECTIONS - "D* (L> : PRINT" 

YOU CAN SEE. . . " ; : Q«=" NOTHING" 
150 FORX-ITONI: IFLl (X)=L ANDS(X) 
=OTHENPRINT, I«(X) :Q«=" ":NEXTELSE 
NEXT 

160 F0RM=1T0NM: IFL(M)=L THEN PR I 
NT, M« (M) : Q«=" " : nextelsenext: IFQ« 
<> " " THENPR I NT , Q«ELSEQ*= " NOTH I NG " 
170 F0RM=1T0NM: IFL(M)=L ANDH(M)> 
F ( M ) THEN Z =0 : GOTO 1 90ELSEZ =RND ( 4 ) : 
IFZ=1THENZ=-6:Z*="N"ELSEIFZ=2THE 
NZ=6: Z*="S"ELSEIFZ=3THENZ=1 : Z*=" 
E"ELSEZ=-1 : Z*="W" 

180 X=L(M> : IFX>0THENIFINSTR(1,D* 
( X ) , Z«+ " " ) >OTHENL (M)-L(M)+Z:IFX 
=L THENPR I NT" THE "M«<M)" RAN AW 
AY! "ELSEIFL«L(M)THENPRINT" A "M* 
(M)" JUST ENTERED"," ROOM!" 
190 IFL(M)<>L THEN200ELSEIFRND(A 
(M) ) >=RND(100)THENH=H-RND(D(M) ) : 
IFH<1THEN520ELSEPRINT" THE "M*(M 
)" HIT YOU. ": PRINT" YOU HAVE"H"H 
EALTH POINTS. "ELSEPRINT" THE "M* 
(M)" MISSED YOU." 
200 NEXTM 

210 W=W+ 1 : I FW= 1 OTHENW=0 : H=H+ 1 : PR 
INT" YOU HAVE"H"HP'S. ":W1=W1+1: I 
FW 1 =5 ANDL 1 ( 3 ) = 1 6THENW 1 =0 : FORM= 1 T 
ONM: IFL(M)==0THENL(M)=RND(30) :H(M 
) =20ELSENEXT 

220 IFW=9ANDH=H2 THENH=H2-1 
230 FORM* 1T0NM:IFL(M) =0THENNE X T : 
IFLl (9)=0THENL1 (9)=16:L1 (7)=16:L 
I (3)=0 

240 INPUT" WHAT NOW" ; C*: V*=LEFT* 
532D3830" , , BED, 9 , 1 , , , COMPUTER, 16 
,1,IT IS A 64K COLOR COMPUTER.,, 
CLOSED DOOR, 26, 1 , , , STATUE, 25, 1 , I 
T LOOKS HIDEOUS. SWORD, 12, 
100 DATAWRITING "MONSTER SLAYER" 
,,PILE OF JUNK,, 1, YOU SEE A RED 
COIN. , ,KEY, , , IT LOOKS OLD. ,1, RED 
COIN, ,, IT IS RED., 1, BLUE COIN,, 
,IT IS BLUE.,, GOLD COIN, 28,, IT I 
S PURE GOLD. VENDING MACHINE, 27 
, 1, WRITING "DRINK CREATURE COLA." 

(C*,3) :N*»MID*(C*, INSTR(1,C*, " " 
) +1 , 3) : IFV«="LOO"THENIFN*="LOQ"T 
HEN140ELSEF0RX=1T0NI : IFLEFT* ( I* ( 
X ) , 3)< >N*THENNEXT: G0T0490ELSEIFL 
1 < X ) <>L ANDL 1 ( X )< >-5THEN500ELSE I 
FW*(X>=""THENPRINT" YOU SEE "Q«" 
. " : GOTO 1 70ELSEPR I NT " " W* ( X ) 
250 IFV*="LO0"THENeOTO17O 
260 IFINSTR<1,D*(L) , V»)=OTHEN280 
ELSE I F V*= " N " THENL=L-6ELSE I F V*= " S 
" THENL=L+6ELSE I F V*= " E " THENL=L+ 1 E 
LSE I F V*= " W " THENL=L- 1 ELSE280 
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270 GOTO 140. 

280 I F V*" " " THEN240ELSE I F I NSTR ( 1 , 
"NSEW",V4s)<>0THENPRINT" YOU CAN' 
T 80 THAT WAY ! " : B0T0240 
290 I F V*<> " MOV " AND V*< > " PUL " AND V* 
< >"PUS"THEN320ELSEF0RX=1T0NI : IFL 
EFT* ( I* ( X ) , 3)< >N«THENNEXT: B0T049 
OELSE I FL 1 ( X ) <>l^ THENSOOELSE I FN«- 
" BED " ANDD* < 9 ) = " S " THENPR I NT " YOU 
SEE AN EXIT TO THE WEST. " : D* (9) = 
"S W":D*(8)="N E":80T0170 

300 i fn*=" bed "thenpr i nt" the ex i 
t to the west closes. ": d« (9) ="s" 
:d*<S)="N":botoi70 

310 IFN*="STA"THENL(4)=25:L1 (5>" 
O: PRINT" IT COMES ALIVE! A BLUE 
COIN WAS UNDER IT. " : LI ( 10) «2 
5 : G0T0240ELSEPR I NT " NOTH I N6 H APPE 
NS. ":B0T0240 

320 I FV*= " SET " ORV*= " TAK " THENFOR I 
=1T0NI : IFN«< >LEFT* ( I* ( I > , 3) THENN 
EXT: S0T0490ELSEIFL1 < I ) <>L THENBO 
T0500ELSEIFM(I)=1THENPRINT" IT C 
AN'T BE PICKED UP. " : G0T0170ELSEL 
1 <I)=-5;PRINT" O.K. YOU HAVE IT 
.":eOT0170 

330 IF V*="INV"ORV*="LIS"THENPRI 
NT" YOU HAVE. . . "S :PRINTTAB<15)H" 
HP'S":F0RI=1T0NI: IFLl (I)=-5THENP 
PINT, I*(I) :NEXT:G0T0170ELSENEXT: 
GOTO 170 

340 I FV*= " PUT " OR V*= " DRO " OR V*= " LE 
A " THENFORX= 1 TON I : I FLEFTilK I * ( X > , 3 
) < >N*ORL 1 < X X >-5THENNEXT : PR I NT " 
YOU DON'T HAVE THAT .": GOTO 1 70ELS 
EPRINT" O.K. YOU DROPPED IT":L1< 
X)=L:G0T0170 

350 I FV*= " PUN " THEND=HD : A=40 : GOTO 
360ELSEIFV*="HIT"THENIFL1 <6) < >-5 
THENPR I NT" YOU MUST HAVE THE SWO 
RD, " : G0T0240ELSED=WD: A=60: G0T036 
0ELSE3S0 

360 FORM= 1 TONM : I FLEFT* < M* < M ) , 3 X 
>N*ORL(M><>L THENNEXT: PRINT" IT 
IS NOT HERE. "ELSEIFRND<100)<=A T 
HENH (M> =H (M) -RND (D) : IFH (M) < ITHEN 
PRINT" IT IS DEAD. ":L(M)=0ELSEPR 
INT" YOU HIT IT.": PRINT" IT HAS" 
H<M) "HEALTH POINTS. "ELSEPRINT" Y 
OU MISSED." 
370 GOTO 170 
380 ' 

390 I F V*< > " I NS " THEN440ELSEF0R 1 = 1 
TONI: IFLEFT*(1*<I) ,3)<>N*0RL1 CI) 
0-5THENNEXT: PRINT" YOU DON'T HA 
VE THAT . " : GOTO 1 70ELSE I FN*= " CAS " A 
NDL=16THENPRINT" AN EXIT OPENS O 
N THE EAST. ":D*(16)="N S E":D*(1 
7)="E W":L1<1>=0:G0T0170 
400 I FN*= " KEY " ANDL=26THEN I « < 4 ) = " 



OPEN DOOR": PR I NT" THE DOOR OPENS 
. ":D*<26)»="N S W":Ll<8)»0:BOT017 
0 

410 i fl=27thenf0rx=9t0 11:1 fleft* 
(i*<x) ,3>=n*thenl1 <x)=-1: print" 
o.k. "elsenext 

420 forx=9t01l: ifl1<x>=-1thennex 
t:li <8>=27:print" a key falls to 
the floor. ": goto 170else 170 

430 Q0T0510 

440 IFLEFT* <V*, 1 ) < >"R"THEN470ELS 
EFORM= 1 TONM : I FL ( M ) =L THENPR I NT " 
YQU CAN'T REST WITH WHILE"," FIG 
HTING. ":G0T0170ELSENEXT: IFQ1=1TH 
EN460ELSEQl=l:H=50: PRINT" YOU RE 
GAINED ALL YOUR HEALTH POINTS 
, BUT ALL OF THE DEAD"," MONSTER 
S HAVE BEEN REINCARNAT- EDp " 
450 FORM" 1 TONM : I FL < M ) =OTHENL < M ) = 
RND ( 30 ) : H < M ) =20 : NE XT : GOTO 1 70ELSE 
NEXT:G0T0170 

460 PRINT" O.K. YOU DO NOTHING." 
: GOTO 170 
470 ' 

480 PRINT" I DON'T UNDERSTAND TH 
E VERB":G0T0240 

490 PRINT" THERE IS NO ITEM BY T 
HAT NAME. ": GOTO 170 
500 PRINT" THAT ITEM IS NOT AROU 
ND. ": GOTO 170 

510 PRINT" NOTHING HAPPENS. ": GOT 
0170 

520 PRINT:PRINT" THE "M»<M>" KIL 
LED YOU. ": A*="V3101L4N1P255N1L1N 
6P4L4N 1 N6L 1 N 1 0P4L4N 1 N6N1 0P8N 1 N6N 
1 0P8N 1 N6L 1 N 1 0P4L4N 1 N 1 0L20+N 1 L40- 
N 1 0N6L2N 1 P255N 1 L 1 N6P 1 " : PL AY A* : CL 
S: PRINT: PRINT: PRINT" PRESS ANY K 
EY TO PLAY AGAIN. ": I*=INKEY*: TIM 
ER=0 

530 I F I NKE Y*< > " " THENRUNELSE I FT I M 
ER>1000THENP0KE359, 13: ENDELSE530 
540 CLS : PR I NT : PR I NT " C Y00NU6 ' R VAE 
T UELSACTA I POENDS f ! " : FORX= 1 TO 1 00 
:NEXT:PRINTe32, "C O N G R A T U 
L A T I 0 N S !":A*="Y O U ' V E 
ESCAPED !": F0RZ=64T0448 
STEP32 : PR I NTeZ , A* : FORX« 1 TO 1 00 : NE 
XTX : PRINTSZ : NEXTZ 

550 PLAY " V3 1 T2L4GGFEEDEEP4DEEDEG 
FGFDP4DDCDDCDGP4EFGP4EFGP4EFL 1 DL 
2C": CLS: PR I NT: PR I NT" PRESS ANY 
KEY TO PLAY AGAIN. ": I*=INKEY*: TI 
MER=0:G0T0530 
555 ' 

558 ' 

559 ' horror house 

560 'by ROBERT W. MANGUM II 
570 '2915 DAIRY ROAD 

580 'TITUSVILLE, FLORIDA 32796 




Search r or 
Ruby Chalice 

Justili>PWla 
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You have searched the entire world trying to 
find the most precious treasure — a ruby 
chaUce — which is said to give you all the 
riches and luck a person desires. Your quest leads 
you to the deep jungles of Africa, a land of endless 
beauty, uniqueness and . . . danger. 

This exotic, fun adventure begins as you and 
your pilot land a pontoon plane in a lake sur- 
rounded by a partially unexplored jungle. You 
must find the buried ruby chalice, located some- 
where in the area, and escape poisonous snakes, 
wildcats, mean head hunters and many other life 
threatening dangers. 

There are some interesting and useful items you 
may want to pick up along the journey which may 
save your life. For instance, the tribe of head hun- 
ters, if you are unlucky enough to meet them, will 
only accept certain treasured gifts . . like your head! 

Don't stray too far away for too long or you may 
hear the dreaded "scream from the east" and 
realize you may never get out of the jungle! 

Before loading the program, unplug your disk 
drive and type POKE 25,6: NEW. 



16K 
ECB 



' 120.. 


. . 046E 


909. . 


. . 1F64 


245.. 


. . 0B86 


1520 . 


. , 2418 


464.. 


. . 1010 


2120 . 


. . 29F9 


535.. 


. . 1441 


2610 . 


. . 2E93 


785. . 


. 1A2D 


END . 


..31D1 



The listing: 

3 REM **«FOR 16K EXTENDED BASIC 

4 REM **»TRS-80 COLOR COMPUTER 

5 REM ********************* 

6 REM ***iC) EARLY 1982**** 

7 REM ***BY JUSTIN PADLA*** 

8 REM ********************* 

10 DIM R*(26) ,0*(25) ,R(26,6) ,0<2 
5) 

15 R=l:SH=6 
20 CLS 

30 PRINT"**SEARCH FOR THE RUBY C 
HAL ICE***" 

40 PRINT: PRINT: PRINT"«*****«*BY 
JUSTIN PAOLA*********" 
50 PLAY"03;L2; A;Pl6;B;Pl6;Le;E;P 
i65L2;F;p4;0liT4;Ll; A;pa;B;P8;L4 



(Justin Paola, a 15-year-old high school student living 
in Berkeley, Calif., is a frequent caller of local compu- 
ter bulletin board systems with his 64 K, 2 disk Color 
Computer bulletin board system. His interests include 
computer graphics, movie special effects, and Adven- 
ture games.) 



;E;P8sLij F 

60 PRINT: PRINT" YOUR PILOT AND 
YOURSELF JUST LANDED IN A LAKE 
NEAR PARTIALLY EXPLORED JUNQLE. 
YOUR OBJECTIVE IS TO FIND THE RU 
BY CHALICE WHICH HAS BEEN HI 

DDEN SOMEWHERE UNDERGROUND . THER 
E ARE MANY HAZARDS AND OBJ EC 

TS LOCATED IN THE "J 
70 PR I NT "AREA. SOME OF THE OBJ EC 
TS ARE USEFUL AND MANY ARE NEE 
DED TO FIND THE CHALICE AND ESC 
APE FROM THE JUNGLE. " 
80 PR I NT: PR I NT "PUSH ANY KEY TO C 
ONTINUE. " 

90 X*=INKEY*:IF X*=""THEN90 
100 CLS 

110 PRINT" TO PERFORM A TASK YD 
U NEED ONLY TO TYPE THE FIRST 
THREE LETTERS OF A COMMAND A 
ND OBJECT. FOR INSTANCE, TO TAKE 



THE 



CHALICE, YOU CAN TYPE 



'TAK CHA'.SOME COMMANDS DON'T RE 
QUIRE AN OBJECT." 
120 PRINT" TO MOVE A CERTAIN DI 
RECTI ON YOU SHOULD TYPE ONLY T 
HE FIRST LETTER OF THE DIRECT 10 
N (TYPE 'N' TO MOVE NORTH)." 
130 PRINT" BE CAREFUL, THERE HA 
S BEEN RUMOURS OF A TRIBE OF 
HEAD HUNTERS IN THE VI CI NIT 

Y • ' < " 

140 PR I NT: PR I NT "PRESS ANY KEY TO 

BEGIN. "i 
150 X*=INKEY*: IFX*=""THEN150 
155 CLS 

160 DATA YOUR PONTOON PLANE,SAVA 
NNA WITH RIVER (IT IS VERY HOT 
AND DRY), SAVANNA WITH RIVER, SAV 
ANNA WITH RIVER, SAVANNA WITH RIV 
ER,HIGH CANOPY JUNGLE, HIGH CANOP 

Y JUNGLE, SAVANNA WITH ONE EA 
SILY CLIMBEABLE TREE, SAVANNA, SAV 
ANNA, DENSE JUNGLE 

170 DATA HIGH CANOPY JUNGLE, A HE 
AD HUNTER TRIBE' SV ILL AGE, A CLEAR 
ING NEXT TO A CLIFF, DENSE JUNGLE 
,A CLEARING, DENSE JUNGLE, A CLEAR 
ING WITH A BEAUTIFUL WATERFAL 
L,YOUR BASE CAMP, A CAVE, HIEROGLY 
PHIC ROOM, WEST VIPER PIT ROOM,EA 
ST VIPER PIT ROOM 

180 DATA A LONG EAST-WEST CO 
RR I DOOR, THE CHALICE ROOM, THE TDP 
OF A HIGH TREE- YOU CAN SEE A 
CLIFF TO THE WEST-A LARGE ROCK 
SLAB TO THE NORTH-A LAKE TO TH 
E EAST-AND A RIVER TO THE SOUTH 

190 FOR X=1T026:READR*(X) :NEXT 
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200 DAT A6UN ,19, MATCHES ,19, SNAKE 
BITE KIT, 19, MAGNIFYING GLASS, 19, 
TORCH, 2, ANCIENT CLOTH, 2, GOLD NUG 
GET, 3, TRANSLATION BOOK, 4, KIWI FR 
UIT,6,SPEAR WITH STRANGE LETTER I 
NG,7,C0IL OF ROPE, 9, JADE CEREMON 
lAL NECKLACE, 10, JUG OF WATER, 11, 
COMPRESSED AIR CYLINDER, 14 
210 DATA INFLATABLE RAFT, 15, RUBY 

CHAL ICE, 25, PI LOT, 1, GROUP OF ME A 
N LOOKING HEAD HUNTERS, 13, RO 

CK SLAB, 16, VIPERS, 22, VIPERS, 23, H 
lEROGLYPHICS ON ONE OF THE W 
ALLS, 21, HOOK ON CEILING, 22, FIRE, 
40, HOOK ON CIELING WITH A ROPE 

TIED TO IT, 23 
220 F0RX=1T025:READ0*(X) :reado<x 
) :0*=0*+LEFT«<0*(X) ,3) :next 
230 DATA ,,,19, ,,9,, 19, 3,,, 8,, 2, 
■^j > r"^ > j3,5, , ,6, ,4, 18, , , 13,5,7, , , 

,11,4,8,6, ,,,3, ,7, 26 ,,10,2, 

9, , 1 1 , , , 16,7, 10, 12, , , , , 1 1 , 13, , , 1 
4,6,12,,,,,13,15,,,,,,16,14,,,,1 
^»^^»^5>jj!ijjl^»j>jj5ijss>jslj2,, 
, , 21 , 22, , 16, , 20, ,,,,,,,, 20, , , , , 2 

J J > J p J 25 , 23 ,,,,,, 24 ,,,,,,,,8 
240 FORX=1T026:FORY=1T06:READR(X 
, Y) :NEXTY,X 

243 C*= ■■ LOOCL I T AKDRO I NVL I GUNLE AT 
DR I X YLFLOH I TSH I T I ESHOSW I HEL I NFFL 
YUSE" 

245 D* < 1 > ="NORTH" : D* (2) ="SOUTH" : 
D* <3) ="EAST" : D* (4) ="WEST" : D* (5) = 
"UP":D*(6>="D0WN" 

250 PRINT: PRINT"YOU ARE IN " ; : PR 
INT R«(R) 

255 IF<R=15 OR R=ll OR R=17 OR ( 
R>20 AND R<26))AND <LI=0 OR 0(5) 
<>0) THEN PR I NT: PR I NT "ITS DARK-Y 
OU CAN'T SEE.": IF R=23 OR R=24 0 
R R=25 THEN 297 ELSE 280 
260 PRINT: PRINT"YOU SEE*":F0RX=1 



T025: IFO(X)=R THENPRINT"*' 



;PRIN 



TO*(X) 
270 NEXTX 

280 PRINT: PRINT"OBVIOUS EXITS AR 
E** " : FOR Y= 1 T06 : I FR ( R , Y )< >0THENPR 
INT"**";D*<Y) ; 
290 NEXTY 

295 IFR=13AND DD=0 THEN PRINT: PR 

I NT: PR I NT "THE GROUP OF HEAD HUNT 

ERS DAMANDS THAT YOU GIVE 

THEM A TREASURE OF THEY WILL 

SEPARATE YOUR HEAD FROM YOUR SH 

OULDERS. ":GOSUB5010 

297 IFR=24AND 0 (6) O0THENPRINT: P 

R I NT "YOU WERE RIDDEN WITH POISON 

OUS ARROWS!.' WELL, TRY AGAIN.": 

PLAY"01,-L4; 12; 1":END 

300 PR I NT: PR I NT: INPUT "WHAT DO YO 



U WANT TO DO"; a*:print:b*="" 
301 CLS 

303 DD=0 

304 GOSUB470 

305 IF LEN<A*>=1THENGOTO3000 
310 F0RX=1T0LEN(A*) 

320 IF MID*<A«, X, 1)=" "ANDLENCA* 
> >X+1THENB*=MID* (A*, X+1 , 3) 
330 NEXT 

335 A*=LEFT*(A*,3) 

340 I F A*= " SMA " OR A*= " BRE " THENA*= " 
HIT" 

350 I FA*= " REA " ORA*= " EX A " THENA*= " 
LOO" 

360 IFA*="GET"THENA*="TAK" 

365 I F A*= " DAM " ORA*= " FUC " THENA*= " 

SHI" 

367 IFA*="TRY"THENA*="USE" 

370 IFB*="GLA"THENB*="MAG" 

380 IFB*="CLO"THENB*="ANC" 

390 IFB*="NUG"THENB*="GOL" 

400 IFB*="BOO"THENB«="TRA" 

410 IFB*="FRU"THENB*="KIW" 

420 I FB*= " ROP " THENB*= " CO I " 

430 IFB*="WAT"THENB*="JUG" 

440 I FB*= " CYL " ORB*= "AIR" THENB*= " 

COM" 

450 IFB*="HUN"THENB*="GRO" 
460 IFB*="SLA"THENB*="ROC" 

462 IFB*="RAF"THENB*="INF" 

463 IFB*="CHA"THENB*="RUB" 

464 IFB*="KIT"THENB*="SNA" 

465 60T0537 

470 N=N+ 1 : WW=WW+ 1 : I FWW >54 ANDWW< 6 
ITHEN PR I NT "YOU ARE THIRSTY- YOU 
BETTER DRINKSOME WATER-AND NOT O 
UT OF THE RIVER BECAUSE ITS CO 
NTAMINATED. " : PLAY"L200O5AAAA" : FO 
RX=1TO200:NEXT 

475 IFLEFT*<A*,3)="DRI"THEN490 
480 IFWW>60THEN CLS: PR I NT "TOO BA 
D-YOU COULDN'T MOVE ON W I THOU 
T WATER. TRY AGAIN !!": PLAY "03; L4 

; 12; i":end 

490 IF<R>1 AND R< 1 1 ) OR R=12 THEN 
IF RND(20)=1 THEN PLAY"05; L100; 
l; 35 5; 7; 9": PRINT"*** WARNING, A 
WILD CAT JUST LEAPED AT YOU!! 
! ":CC=1:RR=1 

500 IF R=15 or R=11 or R=17 THEN 
IF RND(11)=1 THEN PLAY"01 ; L100; 
l;3;5;7;9":PRINT"***0UCH! ! ! A SN 
AKE JUST BIT YOU ! ! ! " : S=l : SS= 

1 

505 I FRR= 1 ORSS= 1 THENRR=0 : SS=0 : GO 
TO530 

507 IFLEFT*(A*,3)="USE"THEN515 
510 I FS=1 THENPRINT "YOU DIED FROM 
YOUR SERIOUS SNAKEBITE!!! TRY A 
GAIN! ! ":PLAY"01;L4; 12; 1": END 
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515 I FLEFT* ( A* , 3 ) = " SHO " ORLEFT* ( A 
*,3)="USE"THEN530 

520 IFCC=1THENPRINT"THE CAT SERI 
OUSLY INJURED YOU AND YOU DIED 
!!! TRY AGAIN! ! ":PLAY"G2;L4; 12; 1 
" : END 

530 IFN=100THENPRINT"»**YOU JUST 
HEARD A SCREAM FROM THE EAST":0 

*(17)="DEAD PILOT WITH HIS HEAD 

MISSING":MID*(0*,49,3)="D 
EA":PLAY"05;L255; 1; 12; 1; 12; 1; 12; 
1; 12; l; 12; i; 12; l; 12; i; 12":F0RX=1 

TO300:NEXT 

531 IFRORR THENFI=0:FB=0:O(24) = 
40 

532 IFFG=1THENPRINT"Y0U WERE KIL 
LED BY THE FIRE ! ! " : PLAY"01 ; L4; A; 
G":END 

533 IFFI=1THENF6=1 
535 RETURN 

537 C=0:O=0 

540 F0RX = 1TDLEN (C*) STEP3: IFMID* < 
C*, X , 3) =A*THENC= ( X+2) /3 
550 NEXT:F0RX=1T0LEN(0*)STEP3: IF 
MID*(0*, X,3)=B*THEN0=(X+2) /3 
670 NEXT 

680 IFC<1THENPRINT"I'M SORRY- I D 
ON ' T UNDERSTAND THAT . " : GOTO30 
0 

690 ONC-1GOTO820, 905, 1000, 1 100, 1 
200, 1300, 1400^ 1500, 1600, 1700, 180 
0 , 1 900 , 2000 , 2090 , 2200 , 2300 , 2400 , 
2500,2600 

700 I FB*= " " THENCLS : GOTO250 
710 IFO=1ANDO(1)=0THENPRINT"THE 
GUN HAS ■■ SH " SHOTS LEFT . " : GOTO300 
720 IF0=1ANDR=0(1)THENS15 ELSE IF 
0=1 AND R<>0(1)THEN817 

722 IFO=5ANDO(5)=0THENIFLI=1THEN 
PRINT" IT IS LIT. ":GOTO250 ELSEIF 
LI=0THENPRINT"IT IS NOT LIT.": GO 
TO250 

723 IF0=5ANDR=0<5)THEN815 ELSE I 
F0=5ANDR< >0 ( 5 ) THEN8 1 7 

725 I F0=6AND0 ( 6 ) =0THENPR I NT " THE 
CLOTH LOOKS VERY INTEREST I NG-YOU 

BETTER KEEP IT.":GOTO300 
727 IF0=6ANDR=0(6>THEN815 ELSE I 
F 0=6ANDR<>0(6) THENS17 
730 IFO=8ANDO<8)=0THENPRINT"IT T 
RANSLATES HIEROGLYPHICS AND MANY 

NAT I VE D I ALECTS . " : GOTO300 
735 IF0=SANDR=0<S)THEN815ELSEIF0 
=SAND R<>0<S) THEN817 
740 I F0=9 ANDO ( 9 ) =0THENPR I NT " MMMM 
!!! IT LOOKS DELICIOUS. ": GOTO300 
745 IF0=9ANDR=0(9)THEN815 ELSEIF 

0=9ANDR< >0 ( 9 ) THENS 1 7 
750 IFO=10ANDO(10)=0ANDO(8>=0THE 
NPRINT"THE LITERAL ENGLISH TRANS 



LATION OF THIS NATIVE DIALECT IS 
X YLO ' " : GOTO300 ELSE I F0= 1 0ANDO < 
1 0 ) =0ANDO ( 8 )< >0THENPR I NT " YOU CAN 
'T READ THIS-IT IS IN A NATIVE 
DIALECT. " : GOTO300 

755 IFO=10ANDR=O(10)THEN815ELSEI 

F O=10ANDR<>O(10)THEN817 

760 IF O=15ANDO(15)=0THENPRINT"T 

HE RAFT IS MISSING ITS C 

OMPRESSED AIR CYLINDER. GOTO300 

765 I F0= 1 5ANDR=0 (15) THENS 1 5ELSE 

IF 0=15AND0< 15) OR THENS17 

770 I F0= 1 6AND0 (16) =0THENPR I NT " I T 

S THE CHALICE YOU'RE LOOKING FO 

R ALRIGHT. ": 6OTO300 

775 IF0=16AND0(16)=R THENS 15 ELS 

EIF0=16AND0( 16) OR THENS17 

780 I F0= 1 7 ANDR= 1 ANDLEFT* ( 0* ( 1 7 ) , 

3)="DEA"THENPRINT"1T LOOKS LIKE 

HE HAS BEEN KILLEDBY THE HEAD HU 

NTERS. YOU WILL NOT BE ABLE TO 

FLY OUT OF HERE. ":GOTO300 
785 I F0= 1 7ANDR= 1 ANDLEFT* ( O* ( 1 7 ) , 
3)="PIL"THENPRINT"HE LOOKS HEALT 
HY AND READY TO FLY YOU AWAY." 
: GOTO300 

787 IF0=17ANDROlTHENPRINT"HE'S 
IN THE PLANE-REMEMBER. ":GOTO250 
790 IF0=19ANDR=16THENPRINT"THE R 
OCK SLAB LOOKS LIKE IT HAS SLID 
OPEN AND CLOSED MANY TIMES. ": GOT 
0300 

795 IF0=19ANDR< >16THENPRINT"THE 
ROCK SLAB IS NOT HERE. " : GOTO250 
797 I F ( O=20ORO=2 1 ) AND ( R=230RR=22 
)THENPR I NT "THERE'S THOUSANDS OF 
THOSE V I C I OUS SNAKES ! . " : GOT 

0300 

800 I FO=20ORO=2 1 AND ( R< >22ANDR< >2 
3)THENPRINT"THERE ARE NO VIPERS 
HERE. ":GOTO250 

805 IFO=22ANDR=21ANDO(8)=0 THENP 
R I NT "THE ENGLISH TRANSLATION OF 
THE HIEROGLYPHICS IS 'DO NOT GO 

FURTHER THAN THE EAST VIPER 
ROOMWITHOUT THE ANCIENT CLOTH O 
R YOUWILL BE PIERCED BY ARROWS. ' 

THESE HIEROGLYPHICS WERE WR 
ITTENRECENTLY. ":eOTD 300 
807 I F0=22ANDR=2 1 ANDO ( 8 X >0THENP 
R I NT "YOU CAN'T READ THEM-YOU DO 
NOT UNDERSTAND THEM. " : GOTO300 

809 I F0=22ANDR< >2 1 THENPR I NT " THER 
E ARE NO HIEROGLYPHICS HERE. "; GO 
TO250 

810 I F0< > 1 8AND0< >23AND0 ( O ) =0THEN 
PR I NT "THERE IS NOTHING SPECIAL A 
BOUT THAT . " : GOTO300 

812 IFO<>18ANDO<>23ANDO<O)<>0AND 
R=0(0>THEN815 ELSE IF O<O)<>0AN 
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DR<>0<0)THEIM817 

813 PR I NT "THERE IS NOTHING SPEC I 

AL ABOUT THEM. ":GOTO300 

815 PRINT"Y0U HAVE NOT PICKED IT 

UP YET. ":GOTO250 
817 PR I NT "THAT OBJECT IS NOT IN 
THIS AREA. ":GOTO250 
820 IFR08 THENPR I NT "THERE'S NOT 
HING TO CLIMB! ! ":GOTO250 
830 6OTO4050 

905 IFO=0THENPRINT"I DON'T UNDER 
STAND WHAT YOU WANTTO PICK UP.": 
GOTO250 

907 IFO(0)<>R THENPR I NT "YOU CAN' 
T PICK UP SOMETHING THAT IS NOT I 
N YOUR SAME AREA ! ! " : GOTO250 
90S IF0=17ANDLEFT*<0*(17) ,3)="PI 
L" THENPR I NT "HE OBJECTED TO YOUR 
TRYING TO TAKE HIM. " : GOTO250 

909 1F0=17THENPRINT"I'M NOT GOIN 
G TO LET YOU CARRY A CORPSE. ":G 
OTO250 

910 IFO=20ORO=21THENPRINT"NO WAY 
!!! THEY'RE VICIOUS. ": GDTO250 
912 IF0=19THENPRINT"IT'S TO HEAV 
Y. ":GOTO250 

914 IF0>16THENPRINT"Y0U CAN'T TA 
KE THAT. ":GOTO250 

9 1 5 CA=CA+ 1 : I FCA >6THENPR I NT " YOU 
CAN'T CARRY ANYMORE !": CA=6: G0T02 

50 

920 0 ( O ) =0 : PR I NT " TAKEN . " : GOTO250 



1000 IFO(O><>0THENPRINT"YOU DO N 
OT HAVE IT! ! ":GOTO250 
1005 GOTO 1020 

1010 PRINT"YOU STARTED A FIRE! ! ! 

YOU BETTERLEAVE THIS AREA ! ! ! " : P 
LAY"05; L200; A; B; A; B" : Fl=l : RR=R: o 
(24)=R:F0RX=1T016: IFO(X>=R THENO 
(X)=40 
1012 NEXTX 
1015 GOTO250 

1 020 O ( O ) =R : I F < R=50RR=40RR=30RR= 
20RR=90RR=80RR= 1 0 > AND L I = 1 AND0=5 
THEN 1010 
1025 CA=CA-1 
1030 GOTO250 

1100 PR I NT "YOU ARE CARRYING*" : FO 
RX=1T016: IFO(X)=0 THENPR INT "*"0* 
(X) : IV=1 
1110 NEXTX 

1115 IFIV=0 THENPRINT"N0T A THIN 
G" 

1117 IV=0 
1120 6OTO300 

1200 IFO<2><>0THENPRINT"YOU NEED 

MATCHES STUPID i ! " : GOTO250 
1205 IFB*="" THENPR I NT "LIGHT WHAT 
??":GOTO250 

1210 IF0<>5THENPRINT"Y0U CAN'T L 
IGHT THAT ! ! " : GOTO300 
1220 PR I NT "YOUR TORCH IS NOW LIT 
. ":LI=l:GOTO250 

1300 IFLI=0THENPRINT"IT IS ALREA 

DY UNL IT.": GOTO300 

1310 IFO(5)<>0THENPRINT"YOU HAVE 

NOTHING TO UNLIGHT. " : GOTO250 
1320 LI=0:GOT0250 

1400 IF0=9AND0 <9) =OTHENPRINT"MMM 
!! THAT KIWI WAS DELICIOUS !!": O ( 
9) =40: GOTO 300 

1405 IF0=9THENPRINT"Y0U DO NOT H 
AVE ANY WATER. ":G0T0300 
1410 IF0=13THENPRINT"TRY 'DRINK 
WATER' ":G0T0300 

1420 PR I NT "DON'T BE PEDICULOUS!! 
" : GOTO300 

1 500 I F0= 1 3AND0 < 1 3 ) =0THENPR I NT " 6 

LUG GLU6 GLU6***THAT WAS R 

EFRESHING. " : WW=0: GOTO300 

1510 IF0=13THENPRINT"Y0U DO NOT 

HAVE ANY WATER ! ! " : GOTO300 

1520 PRINT" THAT MAY BE VERY PAIN 

FUL. ":GOTO300 

1600 IFR<>16THENPRINT"N0THIN6 HA 
PPENS. ":GOTO300 

1605 IFR < 16, 6) =20THENPRINT"WITH 
A GREAT RUMBLING, THE CAVE CLOSE 
S. " : R ( 16, 6) =0: PLAY"O1L100ABCDFGF 
GDCBA":GOTO250 

1610 PRINT"THE ROCK SLIDES WITH 
A LOUD RUMBLING AND REVEALS 



19 



A CAVE . " : PLAY "DILI 00ABCDFBFBDCBA 

" : R ( 16, 6) =20: 6OTO250 

1700 IFO(15)<>0THENPRINT"YOU DO 

NOT HAVE A RAFT. " : GDTO300 

1710 IFIN=0THENPRINT"THE RAFT IS 

NOT I NFLATED . " : GOTO300 
1 720 IFR< >2ANDR< >3ANDR< >4ANDR< >5 
ANDR<>18THENPRINT"Y0U ARE NOT NE 
XT TO A RIVER YOU FOOL. " : BOTO250 
1730 IFO(16)<>0THENPRINT"YOU SHO 
ULD GET THE CHALICE BEFORE 
YOU GO DOWN THE RIVER. ": GOTO300 
1740 PR I NT "YOU FLOAT DOWN THE RI 
VER INTO THE OCEAN AND ARE RES 
CUED BY A FREIGHT SHIP. "." PLAY" L 
20001 ; ABC02ABC03ABC04ABC05ABC04C 
BA03CBA02CBA0 1 CBA " : PR I NT ." PR I NT " C 
ONGRATULATIONS**»****YOU WON! ! !" 

:end 

1800 ifo=10ro=30ro=40ro=70ro=sor 
0= 1 0oro= 1 30r0= 1 40r0= 1 60ro= 1 90r0= 
220r0=23thenprint"0uch**** you h 
urt your hand ! ! ! " : goto300 
1810 if0=17thenprint"he blocked 

YOUR PUNCH AND HIT YOU BACK IN 

THE STOMACH . " : GOTO300 
1820 PRINT"DON'T BE FOOLISH.": GO 
TO300 

1 900 I FRND ( 2 ) = 1 THEN 191 0ELSEPR I NT 
"WATCH YOUR LANGUAGE! ! ! " : GOTO300 
1910 PR I NT "DON'T GET FRUSTRATED 
JUST BECAUSE YOU ARE DOING 

TERRIBLY ! ! " : GOTO300 
2000 IF0<>11THENPRINT"Y0U CANNOT 

TIE THAT ! I " : 6OTO300 
2010 IFO(11)<>0THENPRINT"YOU DO 
NOT HAVE ANY ROPE TO TIE.":G0TD3 
00 

2020 IFR<>22THENPRINT"THERE IS N 
□THING USEFUL TO TIE THE ROPE T 
0. ":GOTD250 

2030 PR I NT "YOU TIED THE ROPE TO 
THE HOOK ONTHE CIELING. " : O < 1 1 ) =4 
0:O*(23)="HOOK ON CIELING WITH R 
□PE TIED TO IT":CA=CA-l:TI=l:60 
TO250 

2090 IFSH=0THENPRINT"YOU HAVE NO 

BULLETS LEFTi ! ":GOTO300 
2100 PR I NT "BANG! ! ! ! " : PLAY" V31L25 
5 ; T255 5 0 1 A AAV 15": SH=SH- 1 
2110 IFCC=1THENPRINT"Y0U SCARED 
THE WILD CAT AWAY !!!": CC=0: G0T03 
00 

2120 PR I NT "YOU JUST WASTED A PRE 
C I OUS BULLET . " : GOTO300 

2200 I FR< >22 ANDR< >23THENPR I NT " TH 
ERE IS NOTHING TO SWING ON.": GOT 
0250 

2210 IFTI=0THENPRINT"YOU HAVE TO 
TIE THE ROPE TO SOMETHING F 



IRST. ":GOTO250 

2220 PRINT"WEEEEEEEEEEEE! !!!!!" 
2225 PR I NT "YOU SWUNG ACROSS THE 
VIPER PIT! ! " 

2230 IFR=22THENR=23ELSER=22 
2240 eOTO250 

2300 IFR=16THENPRINT"TRY TO GET 

THE SLAB TO SLIDE. ": GOTO300 

2310 I FRND ( 2 ) = 1 THEN2320ELSEPR I NT 

"NO COMMENT . " : GOTO300 

2320 PRINT" ITS YOUR ADVENTURE**D 

ON'T ASK FOR MY HELP. " : GOTO300 

2400 IF0<>15THENPRINT"Y0U CAN'T 

INFLATE THAT ! ! " : GOTO300 

2410 IFIN=1THENPRINT"IT IS ALREA 

D Y I NFLATED . " : GOTO300 

2420 IFO(15)<>0THENPRINT"YOU DO 

NOT HAVE THE RAFT. " : GOTO300 

2430 IFO(14)<>0THENPRINT"YOU DO 

NOT HAVE ANYTHING TO INFLATE 

IT WITH. ":6OTO300 
2440 PR I NT "THE RAFT IS NOW I NFL A 
TED. ": IN=l:0*< 15)=" INFLATED RAFT 
":0*<14)="USED COMPRESSED AIR CY 
LINDER":GOTO300 

2500 IFR<>1THENPRINT"Y0U ARE NOT 
IN YOUR PONTOON PLANE !!": GO 

TO250 

2510 IFO<16)<>0THENPRINT"YOU SHO 
ULD GET THE CHALICE BEFORE 
YOU FLY AWAY ! ! " : GOTO250 
2520 IFN>99THENPRINT"Y0UR PILOT 
IS DEAD AND YOU DO NOT KNOW HO 
W TO FLY THE PLANE#*»YOU HAD BET 
TER FIND ANOTHER WAY OUT OF HERE 
. " : GOTO250 

2530 PR I NT "YOUR PILOT TAKES OFF 
AND YOU LEAVE THE AREA WITH T 
HE CH AL I CE " : PL A Y " L2000 1 ABCD02 ABC 
D03ABCD04ABCD05ABCD04ABCD03ABCD0 
2 ABCDO 1 ABCD " : PR I NT : PR I NT " YOU W I N 
I I I I I I I I I I <■ ; END 

2600 IFO=1THEN2090 

2610 IFD<>3THENPRINT"TRY SOME OT 
HER COMMAND WITH THATOBJECT. " : GO 
TO300 

2620 IFO(3)<>0THENPRINT"YOU DO'N 
T HAVE THE SNAKEBITE KITWITH YOU 
. " : 6OTO250 

2630 IFS=0THENPRINT"YOU HAVE NOT 

BEEN BITTEN! ! ":GOTO300 
2640 PR I NT "YOU SAVED YOURSELF.": 
S=0: GOTO300 
3000 U*="NSEWUD" 
3005 Y=0 

3010 FDRX=1T0LEN<U*) : IFA$=MID*<U 
*, X, 1)THENY=X 

3020 NEXT: IFY=0THENC=0:6OTO6S0 
3030 ON Y- 1 GOTO3060 , 3090 , 4020 , 405 
0, 4080 
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3040 I FR ( R , 1 )< >0THENR=R ( R , 1 ) ELSE 
5000 

3050 BOTO250 

3060 I FR ( R , 2 X >0THENR=R ( R , 2 ) ELSE 
5000 

3070 SOTO250 

3090 IFR(R,3><>0THENR=R(R,3)ELSE 
5000 

4000 GOTO250 

4020 I FR < R , 4 )< >0THENR=R ( R , 4 ) ELSE 
5000 

4030 6070250 

4050 I FR ( R , 5 )< >0THENR=R ( R , 5 > ELSE 
5000 

4060 GQTOZ50 

4080 I FR ( R , 6 )< >0THENR=R < R , 6 ) ELSE 
5000 



4090 8OTO250 

5000 PR I NT "YOU CAN'T GO THAT DIR 
ECT I ON ! ! " : PR I NT : 6OTO250 
5010 INPUT "WHAT TREASURE DO YOU 
DROP"; A* 

5020 A*=LEFT*(A*,3) 

5030 IFA*="BOL"OR A*="NUe"AND 0< 

7 ) =0THENDD= 1 : 0 < 7 ) =30 

5040 IFA*="NEC"ORA*="JAD"AND 0(1 

2 ) =0THENDD=1 : 0 ( 1 2 ) =30 

5050 IFDD=0THENPRINT"TOO BAD! ! T 

HEY TOOK YOUR HEAD. TRY AGAIN. " 

:play"02;L4; 12; 1":end 

5060 PR I NT: PR I NT "THEY ACCEPTED I 
T-YOU BETTER LEAVE AT ONCE T 

HOUGH. ":6OTO250 



Lighthouse 
Adventiire 
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In the late 1700's, an old English ship carrying- 
jewels and gold was seized by pirates in a violent 
storm. The crew, weak and sick from the long 
journey, could not properly defend the ship and 
her invaluable cargo. The pirates killed everyone 
on board and set sail for America. 

Months later, they arrived off the coast of a New 
England peninsula and smuggled the priceless gold 
on shore. They quickly found a hiding place for the 
treasure. According to the legend, no one ever 
found the smugglers or the treasure, but most peo- 
ple believe the gold is located in or near the light- 
house. Over the years, many have tried unsuccess- 
fully to find the legendary gold, but either quit, or 
died in the quest. 

This exciting adventure leads you on a magical 
hunt to find the smugglers hideout, take the trea- 
sure and make your getaway. You will encounter 
many tips along the journey, and here's a helpful 
one before you begin: The British call it a "trolley," 
but in America, we call it a "dolly." 
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The listing: 

1 'LIGHTHOUSE ADVENTURE. 

2 ' (C) SEPT 1982. CHRIS WILKINSO 

N, 1299 PALMER AVE, LARCHMONT, 
NY 10538. (914) 834 2803 

3 CLS: PR I NT: PR I NT: PR I NT "WELCOME 
TO LIGHTHOUSE ADVENTURE" 

4 PRINT: PRINT: PRINT"LIKE EVERYON 
E ELSE, YOU'VE LISTENED TO 
THE RUMOURS ABOUT THE OLD SMUG 
GLERS HIDEOUT SOMEWHERE ON 

THE PENINSULA BUT, UNLIKE EVERY 
ONE ELSE, YOU'RE GOING TO FIN 
D IT! ":PRINT"ALL YOU HAVE TO DO 
IS FIND THE GOLD 

5 PRINT: PRINT: PRINT: INPUT"<ENTER 
> TO CONTINUE. ";S« 

6 CLS: PR I NT: PR I NT "USE VERB-NOUN 
INSTRUCTIONS. FOR DIRECTIONS USE 

THE FIRST LETTER 
AN ALSO USE 
WORD RESPONSES 
T OBJECT < ENTER >, 



<NSEWUD> .YOU C 
SEVERAL THREE 
FOR EXAMPLE PU 
YOU WILL BE AS 



KED IN OR ON WHAT. JUST ANSWER WI 



TH THE NOUN YOU " 

7 PRINT"WANT TO PUT OBJECT IN OR 
ON. ": PRINT: PRINT: INPUT"<ENTER> 

TO START"; I* 

8 CLEAR 1300: CLS 

9 DIMD*<6) ,V*<22) ,V<22) ,0»(42> ,0 
(42),R«(21) ,D(21,6),R(21),VE<22) 
,0B(42> 

10 L=l 

11 DATA ON A ROCKY PENINSULA - T 
0 THE NORTH I SEE AN OLD LIGHT 
HOUSE, ON A ROCKY PENINSULA, ON TH 
E GROUND FLOOR OF THE LliSHT 
HOUSE 

12 DATA IN THE BEDROOM, AT THE TO 
P OF THE LIGHTHOUSE - I SEE THE 

ROCKS DIRECTLY BELOW, IN THE GEN 
ERATOR ROOM, IN A LONG CORRIDOR C 
ARVED OUT OF THE ROCK 

13 DATA IN A LARGE DINING HALL, I 
N THE GUARD ROOM, IN THE CHART RO 
OM, IN THE CAPTAINS ROOM, IN THE S 
TORE ROOM, IN A METAL STORAGE CAB 
I NET, IN AN ENOURMOUS VAULTED CHA 
MBER 

14 DATA IN A SMALL PASSAGEWAY , ON 
A NARROW PATH - TO THE WEST I 

SEE THE LAGOON, IN A LARGE ROOM,0 
N THE LAGOON, IN THE MIDDLE OF TH 
E LAGOON, ON THE LAGOON, ON A WIDE 

BEACH - TO THE EAST I SEE THE 

LAGOON 

15 DATAROCKS, PIECE OF PAPER, GUAR 
D - HE WON'T LET ME PASS, ROPE CO 
NNECTED TO THE WALL , CUP , BUTTON , F 
IREPLACE, MAPS, PIRATES LOG, DEAD S 
MUGGLER , CLOSED COFF I N , COFF I N , SKE 
LETON 

16 DATA KNOB, LANTERN, RING < IT LOO 
KS MAGIC) , BOTTLE, TOOL BOX, OIL, NO 
TE , WEAPON RACK , MUSKET , DAGGER , BUL 
LETS, TREASURE CHEST , FLUTE , DOOR T 
0 THE NORTH, IT'S TOO DARK TOO SE 
E 

17 DATABOAT,A HUGE SEA SERPENT, T 
ROLLE Y , GENERATOR , PANEL , SW I TCH , HO 
LE IN WALL, OPENING IN WALL,CORRI 
DOR LEADING DOWN, PASSAGE LEADING 

UP, PULLEY SYSTEM, GOLD BULLION, F 
LINT,MARPLE 

18 DATA GET, DROP, EXAMINE, READ, PU 
LL, PUSH, SEARCH, OPEN, LIGHT, WEAR, D 
R I NK , POUR , F I LL , SHOOT , CUT , LOAD , PU 



( Chris Wilkinson, a computer and games enthusiast, 
lives in Larchmont, N. Y. with his wife, Chanelle, son, 
Zack, and his four furry cats. Chris hopes one day to 
market his own games, and is currently working on an 
exciting mystery adventure.) 
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T, PRISE, PLAY, SAIL, STAB, SAY 

19 DATA 3,2,2,2,0,0,2,2,2,1,0,0, 
0, 1,0,0,4,6,0,0,0,0,5,3,0,0,0,0, 
0,4,0,0,0,0,3,0,0,9, 12,8,0,0,0,0 
,7,0,0,0,7,0,0,0,0,0,9,0, 11,0,0, 
0,0,0,0, 10,0,0 

20 DATA 0,0,0,7,0,0,0,11,0,0,0,0 
, 15,0,0,0,0,0,0, 14,0, 16,0,0,0,8, 
15,0,0,0,0, 16,0,0,0,0,0,0, 17, 19, 
0,0,0,0, 18,0,0,0,0,0, 19,21,0,0,0 
,0,20,0,0,0 

21 F0RX='1T021:READR*(X) : NEXT: FOR 
X» 1 T042 : READO* < X ) : NEXT : FORX- 1 T02 
2:READV»<X) :NEXT 

22 F0RY=1T021:F0RX=1T06:READ D(Y 

,x) :nextx:nexty 

23 DAT ANORTH , SOUTH , EAST , WEST , UP , 
DOWN 

24 F0RX«1T06:READD»<X) :next 

25 DATA 1,4,9,9,0,0,8,10,0,8,11, 
0,0,0,7, 13, 13, 12,0,0, 12, 12, 12,0, 
14, 15, 16, 17,0,0,21,6,0,0,6,5,0,0 
,0,0,0,0 

26 F0RX«=1T042:READ0(X) :NEXT 

27 PRINT: PRINT" I AM: " : PRINTR* (L) 
:PRINT"0BVI0US EXITS ARE:":F0RX= 
1T06:IF D<L,X)<>0THENPR1NTD*<X); 
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28 next:a=o 

29 PRINT: PRINT" I CAN SEE":F0RX=1 
T042: IFO(X)=L THENPRINTO»(X) : A-1 

30 NEXT: IF A=0 THENPR I NT "NOTHING 
OF INTEREST. " 

31 PRINT: INPUT "WHAT SHOULD I DO" 

;i* 

32 IFLEFT*<I*,3)<>"INV"THEN36 

33 CLS:PRINT"I AM CARR Y I N8 : " : FOR 
X=1T042: IF0<X)=-lTHENPRINT01i<X> 

34 NEXT 

35 eOT031 

36 IFI«<>"L00K"THEN37 ELSECLS:00 
T027 

37 IFLEN<I*)<>1THEN46 

38 IFI*="N"ANDD(L, 1)<>0THENL»D(L 
, 1 ) : eOT027 

39 I F I «= " S " ANDD < L , 2 )< >0THENL=D ( L 
,2) :B0T027 

40 IFI*="E" ANDD <L, 3> < >OTHENL=D (L 
,3) :G0T027 

41 IFI«="W" ANDD < L , 4 X >OTHENL=D ( L 
,4) :G0T027 

42 IFI*="U" ANDD (L, 5> < >OTHENL=D (L 
,5) :G0T027 

43 I F I *= " D " ANDD < L , 6 >< >OTHENL-D < L 
,6) :G0T027 

44 IFL=6 AND I«»"U" THENPR I NT "I 
CAN'T GET THE TROLLEY UP THE ST 
AIRS. ":G0T031 

45 PR I NT "YOU CAN'T GO THAT WAY." 
:G0T031 



46 V«=0 : OB-0 : VE««LEFT« ( I ♦ , 3 ) 

47 F0RX>=1T0LEN<I«>:IFMID*(I«,X,1 
) -CHR* (32) THENM=X 

48 NEXT 

49 IFM<30RM>200THENPRINT"I DON'T 
UNDERSTAND" : 60T031 

50 0B*»=MID*<I«,M+1,3) 

51 F0RX-1T022: IFLEFT*<V*<X) ,3)=V 
E«THENV=X 

52 NEXT 

53 F0RX=1T042: IFLEFT*<0*<X) ,3)=0 
B*THEN OB=X 

54 NEXT 

55 IFOB*="SMU" THEN 0B»10 

56 IFOB*="LOG" THEN 0B«9 

57 IFOB«="BOX" THEN 0B=18 

58 IFOB*=»RAC" THEN 0B=21 

59 IFOB*="CHE" THEN 0B=25 

60 IFOB«="SER" THEN 0B=30 

61 IFOB*="PAP" THEN OB=2 

62 IFOB*»"NOT" THEN 0B='20 

63 IFOB*="LIQ" THEN 0B=17 

64 IFOB*="COF" AND 0(12)=0 THEN 
0B=11 

65 IFV=OTHENPRINT"I DON'T KNOW H 
OW T0":PRINTI*:G0T031 

66 ON V GOTO 67,76,80,109,116,11 
6, 127, 129, 137, 142, 146, 150, 161, 16 
9, 180, 183, 186, 129, 191, 196, 199, 20 
3 

67 IFO<OB)<>L THENPRINT"I DON'T 
SEE IT HERE":G0T031 

68 IFIN>5THENPRINT"I CAN'T CARRY 
ANYMORE" :G0T031 

69 IF0B=15 AND M=1THEN 0(29) =17: 
PR I NT " TAKEN " : I N= I N+ 1 : G0T03 1 

70 IF0B=60R0B=140R0B=210R0B=270R 
OB=280ROB=320ROB=330ROB=340ROB=3 
SOROB=360ROB=370ROB=380ROB=390RO 
B=42THENPRINT"I CAN'T GET THAT": 
Q0T031 

7 1 I F0B«70R0B= 1 1 OROB* 1 20R0B=250R 
0B=29THENPRINT"IT'S FAR TOO HEAV 
Y":G0T031 

72 IF0B=30R0B«30THENPRINT"I DON' 
T THINK THAT'S POSS I BLE " : G0T03 1 

73 IF0B=4THENPRINT"I CAN'T GET I 
T - I THINK IT'S CONNECTED TO 
SOMETH I NG " : G0T03 1 

74 I F0B=40THENPR I NT : PR I NT " CONOR A 
TULAT I ONS ! WE ' VE DONE IT!": END 

75 O (OB) =-1 : IN=IN+1 : PRINT"TAKEN" 
:G0T031 

76 IF 0(0B)<>-1THENPRINT"I DON'T 
HAVE IT":G0T031 

77 IF0B=15 THEN D ( 17, 4) =0: O (29) = 
O 

78 IF0B=25 AND L=5 THENPR I NT " THE 
CHEST CRASHES DOWN TO THE ROC 

KS BELOW AND SMASHES 0PEN!":0(25 



)=l:o<40)=l:GOT03l 

79 D<OB)=L: IN=IN-l:PRINT"DROPPED 
":G0T031 

80 IFO<OB>=L OR 0 <0B) =-lTHEN81 E 
LSE PRINT" I DON'T SEE IT HERE": 6 
0T031 

81 IFOB-ITHENPRINT"! SEE A FEW T 
YPES OF STONES - INCLUDINB FLI 
NT. ":0(41)=0(1) :GaT031 

82 I F0B=90R0B=20R0B=20THENPR I NT " 
THERE'S SOMETHING WRITTEN ON IT" 
:G0T031 

83 IF0B=3THENPRINT"L00K'S LIKE A 
TOUGH GUY. HE SAYS < WHAT'S THE P 

ASSW0RD?>":G0T031 

84 IF0B=4THENPRINT"IT LOOK'S LIK 
E A BELL-PULL ":G0T031 

85 IF0<6)<>L AND 0B=7THENPRINT" I 
SEE SOMETHING! ": IFO< 5) =OTHENO( 5 

)=L:G0T031: ELSE0<6)=L:60T031 

86 IFOB=STHENPRINT"I SEE RATHER 
BADLY EXECUTED PICTURES OF I 
SLANDS WITH LARGE 'X'S DRAWN ON 

THEM":G0T031 

87 IF0B=10THENPRINT"HE'S DEAD AL 
LRIGHT! ":G0T031 

88 IF0B=12 AND 0 (13) =OTHENPRINT" 
I SEE A SKELETON IN IT.":0(13)=L 
:G0T031 

89 IF0B=12THENPRINT"I SEE A KNOB 



ON THE BOTTOM OF THE COFFIN. " 
:0(14)=L:G0T031 

90 IF0B=13 AND 0<9)=0 THENPRINT" 
I'VE FOUND SOMETHING. ":0<9)=L:G0 
T031 

91 IF0B=15 AND C=OTHENPRINT"THER 
E'S NO OIL IN IT.":G0T031 

92 IF0B=15THENPRINT"IT LOOK'S LI 
KE AN ANTIQUE":G0TD31 

93 IF0B=16THENPRINT"I SEE HEIROG 
LYPHICS AROUND IT":B0T031 

94 IF0B=17THENPRINT"THERE'S A LI 
QUID IN IT":0*(17>="B0TTLE WITH 
LIQUID" :G0T031 

95 IF0B=22ANDF=0THENPRINT"IT'S L 
0ADED":G0T031 

96 IF0B=22THENPRINT"IT'S EMPTY": 
60T031 

97 IF0B=25THENPRINT"IT LOOKS VER 
Y UTILITARIAN" :G0T031 

98 IF0B=26THENPRINT"IT LOOK'S LI 
KE A GOOD ONE":GOT031 

99 IF0B=27THENPRINT"IT'S LOCKED" 
:G0T031 

100 IF0B=29THENPRINT"IT'S BIG EN 
OUGH FOR TWO OF ME":GOT031 

101 IF0B=30THENPRINT"IT LOOK'S T 
ERR I BL Y FERROC I OUS ! " : G0T03 1 

102 IF0B=32 AND O <34> =OTHENPRINT 
" I SEE SOMETH I NG ! " : O ( 34 ) =L : 60T03 
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1 

103 IF 0B=32 AND 0 (33) -OTHENPRIN 
T"I SEE SDMETHINB! ":0(33>=L:G0T0 
31 

104 IF0B=35THENPRINT"I SEE A PUL 
LEY SYSTEM " : O ( 39 ) =L : G0T03 1 

105 IF0B»36THENPRINT"I CAN SEE D 
OWN A LONG WAY":G0T031 

106 IF0B=39THENPRINT"I THINK IT' 
S A DUMB WAITER":G0T031 

107 IF0B=40THENPRINT"MUST BE WOR 
TH BILLIONS! ":G0T031 

108 PRINT" I SEE NOTHING SPECIAL" 
:G0TD31 

109 IF0B=20R0B=80R0B=90R0B=160R0 
B=20THEN110ELSEPRINT"H0W CAN I R 
EAD THAT?":G0T031 

110 IFQ(QB)<>-1 THENPRINT"! DON' 
T HAVE IT":60T031 

111 I F0B=2THENPR I NT " I T READS : " : P 
R I NT "MUSIC IS PLAYED": PR I NT "BEAU 
TY IS WORN": PR I NT "CHARM THE BEAS 
T":PRINT"OR ELSE YOU'RE GONE": 60 
T031112 IF0B=8THENPRINT"I THINK 
IT'S SPANISH - I CAN'T READ SPA 
N I SH . SORRY . " : G0T03 1 

113 IF0B=9THENPRINT"THE LAST PAG 
E READS: ": PRINT "THE SERPENTS TAK 
EN ALL BUT ME. I, CAPTAIN JAMES 
, ONE TIME LEADER OF THE RI 
CHEST BAND OF PIRATES IN THE L 

AND ": PR I NT "THE SCRAWL FA 

DES INTO NOTHING" :G0T031 

114 IF0B=16THENPRINT"I'M SORRY, 
BUT I CAN'T TRANSLATE ":B0T031 

115 IF0B=20THENPRINT"THERE'S ONE 
WORD WRITTEN ON IT MARPLE. 

":G0T031 

116 IFO(OB)=L OR 0(OB>=-1 THENll 
7 ELSEPRINT"! DON'T SEE IT HERE" 
:G0T031 

117 IF0B=4THENPRINT"N0THINB SEEM 
ED TO HAPPEN": IFR=0THEND< 7,5) =0: 
0(38)=0:R=l:G0T031 

118 IF0B=4THEND(7,5)=6:0(38)=7:R 
=0:G0T031 

119 IF0B=6THENPRINT"A SECRET PAN 
EL SLIDES OPEN":D(S, 1)=16:G0T031 

120 IF0B=14THENPRINT"A HIDDEN DO 
OR 0PENS":D<11, 1)=13:G0T031 

121 I F0B=3 1 THENPR I NT " 0 . K . " : G0T03 
1 

122 IFDB=33THENPRINT"THE PANEL 0 
PENS":0<38)=7:0<37)=6:D<6,6)=7:D 
(7,5)=6:G0T031 

123 IF0B=34THENPRINT"N0THING HAP 
PENS":G0T031 

124 IF0B=39THENPRINT"THE PLATFOR 
M STARTS TO RISE" : IFT=1THEN125 E 
LSE31 



125 IF0B»39THENPRINT"THE TREASUR 
E CHEST MOVES SLOWLY UPWARDS. ":0 
<25)=5:G0T031 

126 PRINT"! CAN'T ";I*:G0T031 

127 IF0B=10 AND 0<10)=L THENPRIN 
T"I FOUND A FOLDED NOTE ! " : O (20) = 
L:G0T031 

128 QOTOBO 

129 IFO(OB)«L OR 0(0B>— 1 THEN13 
0 ELSEPRINT "I DON'T SEE IT HERE. 
":G0T031 

130 I FOB« 11 THENPR I NT "OK - I'VE 0 
PENED IT" : O ( 1 1 ) =0: 0 ( 12) =1 1 : G0T03 
1 

131 IF0B»17THENPRINT"IT'S OPEN": 
G0T031 

132 IF0B»1STHENPRINT"I SEE A CAN 
OF 0IL":0(19)=L:G0T031 

133 IF0B=21THENPRINT"I SEE SOME 
BULLETS " : O ( 24 ) =L : G0T03 1 

134 IF0B=27THENPRINT"IT'S COMPLE 
TELY JAMMED" :G0T031 

135 IF0B=25THENPRINT"IT WON'T OP 
EN":G0T031 

136 PRINT" I CAN'T " ; : PRINTI*: GOT 
031 

137 IF0BO15 THENPRINT" I CAN'T L 
IGHT THAT":G0T031 

138 IFO( 15)0-1 THENPRINT" I DON' 
T HAVE IT":G0T031 

139 IFC=OTHENPRINT"THERE'S NO 01 
L IN IT":G0T031 

140 IFO (41)0-1 THENPRINT" I DON' 
T HAVE ANYTHING TO LIGHT IT WIT 
H. ":G0T031 

141 PRINT"LANTERN IS LIT":M=1:0( 
29) =17: 0 (28) =0: G0T031 

142 IF0(0B)<>-1 THENPRINT"! DON' 
T HAVE IT. ":G0T031 

143 IF0BO16 THENPRINT"! CAN'T W 
EAR THAT! ":G0T031 

144 IF0(0B)O-l THENPRINT"! DON' 
T HAVE !T":G0T031 

145 PRINT" IT FIT'S WELL. " : G=l : GO 
T031 

146 IF0(0B)O-l THENPRINT"! DON' 
T HAVE IT":G0T031 

147 IF0B=19THENPRINT"YUCH - IT T 
ASTES AWFUL ! " : G0T031 

1 48 I F0B= 1 7THENPR I NT " AAARRRBSSHH 

H I'M DEAD. ": 

G0T0206 

149 PRINT"! CAN'T DO THAT":B0T03 
1 

150 IF0(0B)O-lTHENPR!NT"I DON'T 
HAVE !T.":60T031 

151 IF0BO19 THEN155 

152 IF0B=19 THEN INPUT" IN OR ON 
WHAT";P*: I FP«=" LANTERN" AND 0(15 
)=-l THENPR I NT "LANTERN IS NOW F! 
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LLED. ":C=l:G0T031 

153 I FP*=" LANTERN" AND 0< 15)0-1 
THENPRINT"! DON'T HAVE IT.": GOT 

031 

154 PR I NT "OK. BUT I DON'T SEE WHY 
. ":60T031 

155 IF0BO17THEN160 

156 INPUT"IN OR ON WHAT";P*:IF P 
*= " DOOR " ANDL= 1 6THENPR I NT " THE DOO 
R DISINTEGRATES. " : 0 (27) =0: D ( 16, 1 
)=17:0<17)=0:G0T031 

157 IFP*="CUP"AND 0(5)=«-l THENPR 
I NT "THE CUP DISSOLVES BEFORE YOU 
R VERY EYES. ":0(5)=0:G0T031 

158 PRINT" I DON'T HAVE IT.": GOTO 
31 

159 PR I NT "NOTHING HAPPENS. ": GOTO 
31 

160 IF 0B=19 THEN 186 ELSEPRINT"H 
OW CAN I "; I*:G0T031 

161 IF0<0B><>-1 THENPRINT" I DON' 
T HAVE IT. ":60T031 

162 IF0B=15THEN INPUT" WITH WHAT" 
;P*:IF P*="OIL" AND 0<19)=-1 THE 
NPRINT"THE LANTERN IS FILLED. ":C 
=l:0(19)=0:GOT031 

163 IF P*=" BOTTLE "THENPR I NT "THAT 
DOSN'T SEEM RIGHT TO ME.":G0T03 

1 

164 IF 0B=15 THENPRINT"! DON'T T 
HINK I CAN.":G0T031 

165 IF0B=5 THEN INPUT "WITH WHAT" 
;P*:IF P*="OIL" THENPRINT"OK. ":0 
<19)=L:G0T031 

166 I FP*=" BOTTLE" THEN "THE CUP S 
LOWLY DISSOLVES. ":0<5)=0:G0T031 

167 IF0B=19 THEN INPUT "INTO WHAT 
" ; P* : I F LEFT* < P* , 3) = " LAN " THENPR 
INT"OK. ":C=l:G0T031 

168 PRINT"HOW CAN I ; I* 

169 IF0(22)<>~1 THENPRINT" I DON' 
T HAVE A MUSKET. ":G0T031 

170 IF0BO27 THEN 174 

171 IF F=l THENPR I NT "THE MUSKET 
IS EMPTY" :G0T031 

172 IF F=0 AND FT=0 THENPR I NT "YO 
U MISSED. ":F=l:FT=l:G0T031 

173 IF F=0 AND FT=1 THENPR I NT "YO 
U SHOT DOWN THE DOOR. " : F=l : D ( 16, 
l)=17:0<27)=O:G0TO31 

174 IF0BO3THEN 177 

175 IF F=l THENPR I NT "THE MUSKET 
IS EMPTY"ELSEPRINT"THE BULLET PA 
SSED RIGHT THROUGH HIM. I THINK H 
E'S A GHOST. ":F=1 

176 G0T031 

177 IF0B=30THENPRINT"BULLETS HAV 
E NO EFFECT ON A SERPENT THI 
S SIZE! ":G0T031 

178 IFF=0 THENPR I NT "NO EFFECT.": 



G0TD31 

179 PR I NT "THE MUSKET IS EMPTY.": 
G0T031 

180 IFO<OB><>L THENPRINT" I DON'T 
SEE IT.":G0T031 

181 IF0B=40R0B=39 THENPR I NT "SEEM 
S TO BE A VERY STRONG ROPE. I CAN' 
T CUT IT. ":60T031 

182 PRINT"I CAN'T ";I*:G0T031 

183 IF 0(0B)<>-1 THENPRINT" I DON 
'T HAVE IT. ":G0T031 

184 IF0B=22 AND 0(24)=-l THENPR I 
NT "THE MUSKET IS NOW LOADED. ":F= 
0:G0T031 

185 PRINT" I CAN'T ";I*:G0T031 

186 IFO<OB)=L OR D(0B)=-1 THEN18 
7 ELSEPRINT "I DON'T SEE IT.": GO 
T031 

187 IF0BO25 THEN161 ELSE INPUT" 
ON OR IN WHAT";P« 

188 IF LEFT*<P*,3)="TR0" THENPR I 
NT"OK. " : O (25) =-1 : D (6, 5) =0: QOT031 

189 IFP*="HOLE" AND L=6 AND 0(25 
)=-l THENPRINT"OK. " : D (6, 5) =3: T=l 
:0(25)=6:G0T031 

190 PRINT" I CAN'T. ":G0T031 

191 IF0BO26 THENPRINT"! CAN'T P 
LAY THAT! ":G0T031 

192 IF 0<0B)<>~1 THENPRINT"! DON 
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'T HAVE IT. ":SDT031 

193 IFL-18 OR L"19 OR L»20 THENl 
94 ELSE PRINT" IT SOUNDS BEAUT I FU 
L. ":GOT031 

194 IFQ=1 THENPRINT"THE MONSTER 
SMILES HAPPILY AND DISSAPEARS. " 
: D < 19, 4) =20: 0 <30> «0: B0T031 

195 PR I NT "THE SERPENT OPENS HIS 

MOUTH AND AAAAA " : B0T020 

6 

196 IF 0B<>29THENPRINT"I CAN'T " 
; I*:G0T031 

197 IF0(29)=0THENPRINT"WHAT BOAT 
?":B0T031 

198 IFL=17 THENL=1B:0<30)=19:G0T 
027 

199 IF0(23)<>-1THENPRINT"I DON'T 
HAVE A SUITABLE OBJECT TO DO T 



HAT, ":B0T031 

200 IF0B=30 THENPRINT"I'M AFRAID 
HE DIDN'T LIKE THAT 00 

000000 " : B0T0206 

201 IF0B=3THENPRINT"H0W MURDEROU 
S. UNFORTUNATELY IT DID NO BOOD. 
":G0T031 

202 PRINT"DON'T BE RIDICULOUS!": 
B0T031 

203 I FL < >9THENPR I NT " OK . " : B0T03 1 

204 IF0B<>42THENPRINT"N0THING HA 
PPENED. ":G0T031 

205 IF0B=42 AND 0(3)=L THENPRINT 
"HE SMILES AND SAYS: ": PRINT "GOOD 

TO SEE YOU ABAIN, CAP'N 

. AND DISSAPPEARS ! " : 0 (3> =0: D <9, 2> 
=10:60T031 

206 END 



Dungeon Adventure 
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Adventure Contest — Graphics Winner 



If you're ready to engage these dire grounds, to 
face a motley mob of menacing monsters and 
peregrinate the perilous pathways of this laby- 
rinth laden with liability, please CLOAD and 
ENTER. 

First, load the dungeon-making program entitled 
Dungeon. If instead, you wish to continue an 
adventure already started, you need to load the 
program entitled Adventur, and then follow the 
directions for loading your old party from tape. 
Let's pretend we're starting an adventure. First 
load Dungeon, then answer "No" to the first c[ues- 
tion; you need a party of adventurers, not just a 
dungeon. After you have completed making your 
adventuring party, make sure the "play" key on the 
recorder is down, because after the dimgeon is 
generated the next program Advenlur will be 
automatically loaded. 

Once Adventur is loaded, you should answer the 
question, "y\re you starting a new adventure?" with 
a "Yes." If you were to answer "No," you would be 
prompted to load in your old party. Next, you are 
instructed m how to set up your party members in 
the order they will first appear in any encounter. 

The flashing cursor is controlled by the arrow 
keys and the specified party member is placed with 
the "P" key. A status report can be taken during 
this routine. 



Movement through the dungeon is pretty self- 
ex|danatory, the arrow keys are used to move your 
party. I have included in this phase a status report, 
and, during this phase, the dungeon and your 
adventuring party can be saved to tape. I also have 
included wandering monsters, so that even dun- 
geon areas that should be cleared, signified by the 
X's (;an be encounter areas, and getting back to the 
exit might be full of peril. 

During the fight secpience, there are still lour 
things each party member may do. Movement — 
which is again accomplished by the arrow keys; 
Fighting — placing the grid mentally over the attack- 
ing party member and pressing the appropriate key 
for the monsters (I don't think anyone could under- 
stand that explanation without the game in front of 
them); Taking a position — which can give you 
extra movement, attack levels, damage factors, 
defense points, and recovery of lost body points; 
checking status. Flitting the "Q" key will allow you 
to exit the fight setjuence. 

Whenever you return from town, you must go 
through the adventurer set-up phase. 

My best hint: If you have a certain character you 
don't want to die, namely yourself, have him attack 
from a diagonal while another party member 
attacks straight on. The monster will attack the 
other party member first. 

(jood luck! 
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Listing 1 — Dungeon 

1 O PCLEAR4 : CLEAR 1 OO , 3 1 OOO : D I MDP ( 



64) ,DU(30,30) 



, A<400) , B<400) :G0SU 



B560 

20 CLS: PR I NT "HERE ARE SOME TERMS 
AND THE I R MEAN I NGS : '" : PR 

I NT '.PRINT "body poi nts-AMOUNT OF 
DAMAGE A CHARACTER CAN TAKE BEF 
ORE DEATH. "; :PR I NT "defense point 
5-THE ABILITY TO WITHSTAND ATT 
ACK WITHOUT TAKING DAMAGE < ARMOR 
OR DEXTERITY) . 

30 PRINT"e>:perience level -AFFECT 

(Greg Rickeiis is a 19-year-old Ohio State University 
student majoring in electrical engineering. His hobbies 
include tennis, golf and swimming.) 



S PLAYERSABILITY TO ATTACK EFFEC 
TIVELY. ": PR I NT "damage f actor-AMO 
UNT OF DAMAGE DONE TO CREATURES 
THE CHARACTER ATTACKED. ": PRINT© 
490,"<enter> TO CONTINUE"; 
40 GOSUB540 

50 CLS: INPUT "DO YOU WANT JUST A 
NEW DUNGEON <Y/N) " ! DE*: IFDE*< > 
"Y"THEN70ELSEPRINT "PLACE TAPE WI 
TH ADVENTURES IN THE RECORDER 
AND PRESS PLAY": INPUT "NAME OF LA 
ST ADVENTURE " ; L* : I FLEN ( L« ) > 8THEN 
L*=LEFT*<L*,S> 
60 CLOADML*: GOTO ISO 
70 CLS: PR I NT "YOU MAY CHOOSE HOW 
YOUR MAIN CHARACTER 
IN THESE AREAS, EXC 
EXPERIENCE LEVEL WH 
AT 4. YOU HAVE 35 
POINTS TO USE AND NONE OF THE LEV 
ELS CAN BE BELOW 5.":P=35 
SO PRINT@288, "BODY POINTS" : PRINT 
@320 , " DAMAGE FACTOR " : PR I NT@352 , " 



MANY POINTS 

WILL HAVE 
EPT FOR THE 
ICH STARTS 
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DEFENSE POINTS" 

90 B0SUB550:PRINT@304, ""; : INPUTS 
P ( 0 ) : P=P-BP ( 0 ) : G0SUB550 : PR I NTe33 

6, " " ; : INPUTDF (O) : p=p-df <o) : gdsub 

550: PRINT@368, " " ; : INPUTP (O) : P=P- 
P <0) : G0SUB550: PRINT@384, " " ; : IFP< 
>0THEN7O 

100 IFBP <0)<50RDF (0X50RP <0) <5TH 
EN70 

110 INPUT "WHAT NAME FOR YOUR CHA 
RACTER (UNDER 9 LETTERS )" 5 NM* 

(0) 

120 CLS: INPUT "DO YOU WANT <H>ENC 
HMEN OR <M>ERCEN ARIES"; 

D4 : I FD*= " H " THEN 1 40ELSE I FD*< > " M " T 
HEN 120 

130 cls: r=rnd<4)+1: print" you hav 
e";r; "mercenaries. ":f0rl=1t0 r:b 
p(L)=b:df(L)=6:P(L)=6:nm*<l)="ME 

RCENARY " : NEXT : FORL= 1 T0750 : NEXT : G 
0T0180 

140 R=RND(3) :F0RL=1T0 R 
150 BP(L)=RND(9)+3:DF(L)=RND(7)+ 
2: P <L) =RND <7) +2: NEXTL 
160 CLS: PRINT"henchmen names (UND 
ER 9 LETTERS) ": PR INT "BODY PO. DA 
MAGE FAC. DEFENSE PO. " ; : F0RL=1T0 
R 

170 PRINT" ";bp(L);" ";df 

(L);" ";P(L) : INPUTNM* (L) :n 

EXT 

180 CLSO: F0RL=64T070: PRINT@L, CHR 
*(128) ; "dungeon"; : NEXT: F0RL=224T 
0234: PR IN r@L, CHR* (128) ; "generati 
on" ; : NEXTL: F0RL=384T0402: PRINTSL 
, CHR* (128) ; "period"; : NEXTL: P0KE6 
5494 , 0 

1 90 PLAY " V2004T2L 1 6DP 1 6DP 1 2aDP 1 2 
SDP 1 28L4 . FP 1 6L 1 6FP 1 28FP 1 28L8FP64 
L 1 6DP 1 28DP 1 28L8DP64CP6403L4 . B-P 1 
2804L8CP64DP64E-P64FP64L 1 6FP 1 2SF 
P 1 28L 1 B-P 1 28L803B-P6404CPA4L4 . DP 
1 28L 1 6DP 1 2SDP 1 28LaFP64DP64L4 . CP6 
4L 1 6CP 1 2SCP 1 28L8E-P64CP6403B-P64 
04L 1 6DP 1 28DP 1 28L8DP64L 1 6F 
200 PLAY " FP 1 28L8FP48FP48L IF": POK 
E65495,0 

2 1 O F0RL=0T030 : F0RK=0T030 : DU ( L , K 
)=0:NEXTK,L 

220 FORL= 1 T064 : READDP : DP ( L ) =DP : N 
EXTL:DATA1,2,3,4,6,8, 10, 13, 16, 18 
,20,22,23,24,25,27, 1,3,4,5,7, 10, 
11, 14, 17,20,21,22,24,25,26,29, 1, 
2,4,5,6,9, 11, 15, 16, 19,21,22,23,2 
5,26,30, 1,2,3,5,7,8,9, 12, 17, 18, 1 
9, 22, 23, 24, 26, 28: DU ( 15, 15) =1 : DP- 
1 : X=15: Y=15 

230 F0RL=1T064: IFDP(L)<>DP THEN2 
70 

240 XX=0: YY=0: IFL< 17THENAD=32: YY 



=- 1 ELSE I FL > 1 6 ANDL< 33THENAD=4S : X X 

= 1 ELSE I FL >32ANDL< 49THENAD=0 : Y Y= 1 

ELSE I FL >48THENAD= 1 6 : X X=- 1 

250 IFX+XX<00RX+XX>300RY+YY<00RY 

+YY>30THEN270 

260 IFDU(X+XX. Y+YY)=0THEN290 
270 NEXT 

280 X=A<SS) : Y»B(SS) :DP=DU(X, Y) :S 
S=SS+l:PRINT@27,401-SS; : IFST<SS 
ANDST< 50THENREST0RE : G0T02 1 OELSE I 
FST<SS THEN3S0ELSE230 
290 D1=DP(RND(16)+AD) 
300 I FX + X X=OANDD 1 < 27THEN290ELSE I 
FX +X X =30ANDD 1 < 27THEN290ELSE I F Y+Y 
Y=OANDD 1 < 27THEN290ELSE I FY+Y Y=30A 
NDDK27THEN290 

310 DU(X+XX, Y+YY)=D1:F0RL=1T064: 
IFDP(L)=DP THENP=P+1 
320 NEXT 

330 IFP>1THENA(ST)=X:B(ST)=Y:ST= 

ST+ 1 : PR I NT@0 , 400-ST ; 

340 IFST>399THEN380 

350 P=0:F0RL=1T064: IFDP(L)=DP TH 

ENP=P+1 

360 NEXT 

370 I FP > 1 THENDP=D 1 : X = X+X X : Y=Y+YY 

: G0T0230ELSEG0T0230 

380 IFSS=401THEN450ELSEX=-A (SS) : Y 

=B(SS) :dp=du(X, Y) :ss=ss+i 

390 FORL= 1 T064 : I FDP ( L )< > DP THEN4 

30 

400 XX=0: YY=0: IFL<17THEND1=30: YY 
=- 1 ELSE I FL > 1 6ANDL< 33THEND 1 =28 : X X 
= 1 ELSE I FL >32ANDL< 49THEND 1 =27 : Y Y= 
1ELSEIFL>48THEND1=29: XX=-1 
410 IFDU(X+XX, Y+YY><>0THEN430 
420 DU(X+XX, Y+YY)=D1 
430 NEXTL 

440 IFSS=401THEN450ELSEX=A(SS) : Y 
=B(SS) :DP=DU(X, Y) :SS=SS+l: PRINTS 
27 , 40 1 ~SS ; : G0T0390 

450 CLSO : F0RL=224TO234 : PR I NTHL , C 

HR*(128) ; "completed"; :NEXT 

460 J=31000: F0RL=0T030:F0RK=0T03 

0:P0KEJ,DU(L,K) : J=J+l:NEXTK,L:PO 

KE31962, 15:P0KE31963, 15: IFDE*="Y 

"THEN520 

470 J=32000:L=0 

480 P0KEJ,BP(L) :P0KEJ+1,DF(L) :P0 
KEJ+2,P(L) 

490 I FL=0THENP0KE J +3 , S/H27 : POKE J + 
4 , S<H 1 0 ELSEPOKE J +3 , &HOC : POKE J +4 , 
S<HDO 

500 J=J+5:L=L+l: IFNM*(L)<>""THEN 
4S0ELSEP0KEJ , 42: J=J+1 : L=0 
510 FORK=1TO LEN(Nm^L) > -.P0KE3,A 
SC(MID* (NM* (L) ,K, I) ) : j=j+i:nextk 
: L==L + 1 : POKE J , 42 : J =0 + 1 : 1 fnm* ( l x > 

" "THEN510ELSEP0KEJ , 255 
520 P0KE65494 , O : CLOAD 
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530 END 

540 K$= I NKE Y* : R=RND < O ) : I FK*= " " TH 
EN540ELSERETURN 

550 PRINT@224, "points le-ft";P;:R 
ETURN 

560 P0KE65495 , O : K= 1 : J= 1 : 6*= " by " + 
CHR* ( 1 28 ) + " greg '■ +CHR* ( 1 28 ) + " r i c k 
etts" : L*=" dungeon "+CHR* < 128) +"ad 
venture" : CLSO: F0RL=0T0509: PRINTS 
L,CHR*(12S) ;CHR*<207) ; : IFL>197AN 
DL< 2 1 5THENG0SUB590ELSE I FL >46 1 AND 
L< 48 1 THEN60SUB600 
570 NEXT 

580 P0KE65494,0:PRINT@510,CHR*(1 
28) ; :G0T0610 

590 PRINTeL,MID*<L*, J, 1) ; : J=J+1: 
RETURN 

600 PRINTaiL,MID*(G*,K, 1) ; :K=K+1: 
RETURN 

6 1 O PLAY " 04T5L4DP 1 28L8D+P 1 2aL4 . E 
P 1 28L8E-P 1 28L4DP 1 28L8C+P 1 28L4DP 1 
28L8D+P 1 2SL2EP 1 28L8E-P 1 28L4DP 1 28 
L8C+P 1 28L4DP 1 28L8D+P 1 28L4EP 1 28LS 
E-P 1 28L4DP 1 28L8C+P 1 2SL4CP 1 28L803 
BP 1 28AP404DP2DP 1 28DP 1 28C+P 1 28DP 1 
28EP 1 28P4L4 . EL8F+P4L4 . F+L8AP4L2G 
P 1 28L8GP 1 28GP 1 28F+P 1 28ED " 
620 PLAY " P8D+P 1 28EP8E-P 1 28L4DP 1 2 
SL8DP 1 28DP 1 2SDP 1 28DP 1 28DP8D+P 1 28 
EP8E-P 1 28L4DP 1 28L8DP 1 28DP 1 2SC+P 1 
2aDP 1 28EP4L4 . EL8F+P4L4 . F +LSAP4L4 
. GL46P 1 28LS6P 1 28GP 1 28F+P 1 28GP 1 28 
L4F+P 1 28LSF+P 1 28F+P 1 28GP 1 28G+P 1 2 
BAP 1 2803AP 1 28AP 1 28BP 1 2804C+P 1 28D 
P8C+P 1 28DPaC+P 1 28L3D " 
630 F0RL=1T010: CLS7: CLS8: NEXT: RE 
TURN 



/ 120... 


. 05C6 


1510. . 


. 2C04 


270 .. . 


. 0B52 


1680. . 


. 31E1 


720 .. . 


. 101A 


1770. . 


. 352B 


790 .. . 


. 158E 


1960. . 


. 38F8 


920. . . 


. 1AE4 


2140. . 


. 3D89 


1110. . 


. 1F42 


2230 . . 


. .4129 


1360. . 


. 26C3 


END. . 


. 44F0 



Listing 2 — Ath eiitur 

1 0 CLS : PCLEAR4 : CLEAR 1 700 , 3 1 000 : D 
IML*<25) ,M0*<19) ,MC(1) ,M0(1> ,HM( 
1) ,MR(1) ,CY(1) ,CA<10,2) , CP (11, 3) 
,MP(51,2> ,P0(11,3) ,N*(11> ,B(11) , 
BP (1 1 ) , DF ( 1 1 > , DP ( 1 1) , EX ( 1 1 ) , AL < 1 
1) :L=RND< -TIMER) 

20 DP* ( 1 ) = " BD 1 8BL5U3HLG2LHLH3U2H 
EU2HL2BU 1 0R3EU3HUE2R2ERE2REUBR 1 O 
D2FRERF2RF2D5FDR3BD 1 0L2G2DFDG2L4 
GL2GD4" 

30 DP* <2) ="BD18BL5U2HLH3LH2U2HUH 



L3BU 1 OR2E4UER2ER2FRFERER5F2R2ERF 
RFDFDFR2BD 1 0L2GLG2DGDG2LG3D2BU36 
DGL8HU" 

40 DP* ( 3 ) = " BD 1 8BL5U3H2LH5U3HUEU7 
HU2EUE2UER4EU3BR 1 0D3F2DFRFRFDFD2 
FD5GDFDGD2GDGDG2L3GD3BR 1 3BU 1 3LHU 
8ERBL36RFD8GL" 

50 DP* ( 4 > = " BD 1 SBL5U2HL2HL2HLHUHU 
4HL2BU 1 0R2E3RERE2R2ERERER2FR2FR2 
F2DF3DFD2F2D2GD6GLG4LG2D2BR 1 3BU 1 
3LHUEU3HU2ERBU 1 3BL 1 3GHL2GHG2LHU " 
60 DP* ( 5 ) = " BD 1 8BL5U3HLH2LHUHU2HU 
2HUEU2EUE2UE7FER3FR3FR2F3DFD4FD2 
GD2FDGD26D63LQL2D3BR 1 3BU 1 3LHU3EU 
HUE2BU 1 3BL 1 3GLGLHL26LHUBL 1 3BD 1 3F 
2GD3GD3" 

70 DP* <6) »"BD18BL5U2EUHU2HU3H2L2 
GL3HL3BU 1 0R3FER2EFRE3U3EU2HU3BR 1 
0D4GD2F2D3F2R2E2RFR4BD 1 0L2HL2GLQ 
L3HLGD26DFD4FD2 " 

80 DP* < 7 ) = " BD 1 8BL5U5EU2HU3HL3GL3 
H2LGLBU 1 0R3ER7FR7ER2FR3FR2ER6BD 1 
0L6HL3GL2GDFD 1 0BU36DG2LHL3HGHU " 
90 DP* ( 8 ) = " BD 1 8BL5U4EU5HUHU6EU6H 
U2EU6BR 1 OD6FD7GDFD2GD6FD36D5BR 1 3 
BU 1 3LHUHU2EU2E2BL36RFGDFG2FDFGL " 
1 00 DP* ( 9 ) = " BD 1 8BL5U5EUHU2H4L4GL 
4BU 1 0R7FR3E2R5FR2F3D2FD3GD9GD3BR 
1 3BU 1 3LHUEUHE2U3BU 1 3BL 1 3D26L3GL2 
HLHU2" 

1 1 0 DP* < 1 0 ) = " BD 1 8BL5U5EU2HU5HU7E 
2R4FRERFD8FD6GD7BR 1 3BU 1 3HU2EHU2H 
E2BU 1 3BL 1 3GHL5GLHBL 1 3BD 1 3F2D2GDF 
D2GL" 

120 INPUT "ARE YOU STARTING A NEW 
ADVENTURE <Y/N) ";L*: IFL*="Y"THE 

N130ELSECLS:PRINT"PLACE TAPE WIT 

H ADVENTURES IN THE RECORDS 

R PRESS PLAY": INPUT" WHAT WAS THE 
NAME GIVEN TO YOUR LAST ADVENTU 

RE" ; L*: IFLEN (L*) >8THENCLOADMLEFT 

* (L*, 8) : CLSELSECLOADML* 

130 J*32000:L=1 

140 BP<L)=PEEK(J) :DF(L)=PEEK<J+1 
) :DP<L)=PEEK<J+2) :EX <L) = <PEEK(J + 
3) *256) +PEEK < J+4) : AL <L) =INT (EX <L 
)/32a0+l) :a=J+5:L=L+l: IFPEEK(J>< 
>42THEN 1 40ELSE J= J + 1 : L= 1 
150 N*<L)=N*(L)+CHR«<PEEK<J) ) J = 
J + l:IFPEEK(J)< >42THEN 1 50ELSE I FPE 
EK< J+1 ) =0THENC9=L: J=J+2: L=l : GOTO 
1 70ELSE I FPEEK ( J + 1 ) =255THENC9=L : J 
=J+2: L=1ELSEJ=J+1 : L=L+1 :G0T0150 
160 B(L)=BP<L) :L=L+l: IFN«(L)<>"" 
THEN 160ELSE 190 

170 F0RL=1T0 C9:B(L)=PEEK(a) : J=J 
+1 : NEXT: J= J+1 : CR= (PEEK ( J) *256) +P 
EEK (J + l ) : J=J+3: F0RL=0T010: CA (L, O 
)=PEEK(J) :CA(L, 1)=PEEK(J+1) : CA (L 
,2>=PEEK(J+2) : J=J+3:NEXT: IFPEEK( 
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J ) =255THEN 1 90ELSEL= 1 

180 PO*(L)=PO*(L)+CHR*(PEEK(J) ) : 

J = J + 1 : I FPEEK ( J + 1 ) =255THEN 1 90ELSE 

IFPEEK < J ) =42THENJ=J + 1 : L=L+1 : GOTO 

180ELSE180 

1 90 P0KE65495 , O : F0RL=0T025 : RE ADL 

*:l*(L)=l*:next:forl=8<H7F01 to & 
h7fff : readl* : pokel , val < " 8ch " +l* ) : 

NEXT : FORL=OTO 1 9 : READL* : MO* ( L) =L* 
: NE X T : PM0DE3 : PCLS2 : PM0DE4 : GET ( O , 
0)-(7,7),HM,G: PM0DE3 : PCLS3 : PMODE 
4:GET<0,0)-(7,7> ,MC,G:PM0DE4 
200 PCLS0:QET(0,0)-(7,7) ,MR,Q:P0 
KE65494 , O : GOSUB8 1 O 

210 XP=PEEK ( 3 1 962 ) : YP=PEEK ( 3 1 963 
) : I FPEEK ( 3 1 480 ) = 1 THENPOKE3 1 480 , 3 
1 

220 PMODE4 : COLORO , 1 : PCLS : SCREEN 1 
,0:P0KE65495,0 

230 X=18: Y=1S:PCLS:F0RJ=YP-2T0 Y 
P+2: F0RK=XP-2T0 XP+2: DP=PEEK <310 
00+J»31+K) : IFDP>30THENDP=DP-30:G 
0SUB2090 

240 G0SUB4 1 0 : DRAW " BM " +STR* < X ) + " , 
"+STR* (Y> +"A"+STR* (A) +DP* <L) : X=X 
+37:NEXTK: X=1S: Y=Y+37:NEXTJ 
250 L*="USE" : DRAWBM192, 30" : J=3: 
G0SUB2070 : L*= " ARROW " : DRAW " BM200 , 
40" : J=5: 60SUB2070: L*="KEYS" : J=4: 
DRAW " BM224 , 50 " : G0SUB2070 : L*= " CAS 
SETTE" : J=8: DRAW" BM 192, 170" : GOSUB 
2070 : L*= " STATUS " : J =6 : DR AW " BM 1 92 , 
180":Q0SUB2070 

260 P0KE65495 , O : PUT < 88 , 88 > - ( 95 , 9 
5) , MC, PSET: FORL=1T0100: NEXT: LINE 
< 88 , 88 ) - ( 95 , 95 ) , PRESET , BF : K*= I NK 
EY* 

270 LINE <8S, 88)- (95, 95> , PRESET, B 
F: IFPEEK (342) =247G0SUB920: K*=CHR 
* ( 1 O ) ELSE I FPEEK (341) =247G0SUB960 
: K*= " " ELSE I FPEEK ( 344 ) =247G0SUB 1 
OOO : Kt =CHR* ( 9 ) ELSE I FPEEK ( 343 ) =24 
7G0SUB1030: K*=CHR* (8) ELSEIFK*="S 
" 60SUB2 1 30 : G0T0260ELSE I FK*= " C " TH 
EN2180ELSE260 
280 P0KE65494,0 

290 IFPEEK (31000+YP*31+XP) >30AND 
RND (100) =69G0SUB2 1 60 : GOT0230 
300 IFXP=15AND YP=15THENL*="EX IT 
" : J=4: DRAW"BM200, 100" : G0SUB2070: 
F0RL=1T05: S0UND240, 2: SOUND 150, 2: 
NEXT: LINE (200, 93) -<230, 140) , PRES 
ETjBF ELSE320 

3 1 O K*= I NKE Y* : I FK*= " " THEN3 1 OELSE 

I FK*= " E " THEN 1 930ELSE270 

320 NU=31000+YP*31+XP: IFPEEK<NU) 

<31THENP0KENU, PEEK (NU) +30ELSE260 

330 F0RL=OT010: IFCA (L, 0) =XP ANDC 

A(L,1)=YP THENR=CA<L,2) :G0T0360E 

LSENEXT 



340 IFPEEK (NU) -30 >15THEN260ELSE I 
FRND(6) >2THEN260 
350 R=RND<20)-1 

360 PLAY " V300 1 L255T255 " : FORL= 1 TO 
30 : PLAY " CDV- " : NE X T : L*= " YOU SPOT " 
: J =8 : DRAW " BM 1 90 , 1 00 " : G0SUB2070 : L 
=LEN(MO*<R> > :L*=RI6HT*<M0*<R> , L- 
14) : J=L-14:DRAW"BM180, 110": GOSUB 
2070: L*="FIGHT" : J=5: DRAW"BM194, 1 
40":60SUB2070 

370 L*="OR RUN": J=6:DRAW"BM192, 1 
50":G0SUB2070 

380 L*= I NKEY* : I FL*= " " THEN380ELSE 
I FL*= " R " THEN 1 060ELSE I FL*= " F " GOSU 
B1120ELSE380 
390 G0T0220 
400 G0T0400 

410 IFDP=00RDP>30THENL=0ELSE0N D 
P G0SUB430 , 440 , 450 , 460 , 470 , 480 , 4 
90, 500, 510, 520, 530, 540, 550, 560, 5 
70, 580, 590, 600, 610, 620, 630, 640, 6 
50 , 660 , 670 , 680 , 690 , 700 ,710, 720 
420 RETURN 



430 


L 


= 1 


: RETURN 


440 


L 


=2 


: A=2 


: RETURN 


450 


L 


=2 


:A=1 


: RETURN 


460 


L 


=2 


: A=o 


: RETURN 


470 


L 


=2 


: A=3 


: RETURN 


480 


L 


=3 


: A=l: 


■ RETURN 


490 


L 


=3 


: A=0■ 


: RETURN 


500 


L 


=4 


:A=1■ 


RETURN 


510 


L 


=4 


: A=2- 


: RETURN 


520 


L 


=4 


: A=o: 


' RETURN 


530 


L 


=4 


: A=3 


RETURN 


540 


L 


=5. 


: A=2: 


RETURN 


550 


L 


=5. 


: A=l: 


RETURN 


560 


L 


=5: 


A=0: 


RETURN 


570 


L= 


=5: 


■ A=3: 


RETURN 


580 


L= 


=8: 


A=l: 


RETURN 


590 


L= 


=8: 


A=o: 


RETURN 


600 


L= 


=9: 


A=l: 


RETURN 


610 


L= 


=9: 


A=2: 


RETURN 


620 


L= 


=9: 


A=o: 


RETURN 


630 


L= 


=9: 


A=3: 


RETURN 


640 


L= 


=6: 


RETURN 


650 


L= 


=7: 


A=2: RETURN 


660 


L= 


=7: 


A=l : 


RETURN 


670 


L= 


=7: 


A=0: RETURN 


680 


L= 


=7: 


A=3: 


RETURN 



690 L=10:A=l: RETURN 

700 L=10:A=2: RETURN 

710 L=10:A=0: RETURN 

720 L=10:A=3: RETURN 

730 DATAU4E2F2D2L4R4D2,RU6LR3FDG 

L2R2FDGL3BR4 , BR4BUGL2HU4ER2FDBD4 

, RU6LR3FD4GL2BR3, U3R4L4U3R4BD6L4 

R4, U3R4L4U3R4BD6, BR2BU3R2D2GL2HU 

4ER2FBD5, U6D3R4U3D6, BRR2LU6LR2BR 

BD6, BU2DFREU5BD6, U6BR4G3F3, R4L4U 

6BR4BD6, U6F2E2D6, U6DF4U5D6, R4L4U 
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6R4D6, U6R3FDBL3BR4BD3 

740 DATABUU4ER2FD46L2HBR2BUF2,U6 

R3FDBL3RF3, BUFR2EUHL2HUER2FBD5, B 

U6R4L2D6BR2, NU6R4NU6, BU6D4F2E2U4 

BD6, NU6E2F2NU6, UE2H2UDF2E2UDG2F2 

D, BU6DF2E2UDG2D3BR2, BU6R4DG2LR2L 

e2DR4 

750 DATACC,A,A0,FD,7E,FD,CC, A,B8 
,FD,7E,FF,8E,A, A0,EC,81,ED,89,FB 
, 5E, BC, 7E, FF, 26, F5, CC, 0, 20, F3, 7E 
, FF, FD, 7E, FF,CC, O, 20, F3, 7E, FD, FD 
,7E,FD,SC, 1D,58,27,5,BE,7E,FD,20 
,D9,39,CC, 19,40,FD,7E,FD,CC, 19,5 
8,FD,7E,FF,8E, 19, 58, EC, S3, ED, 89, 
4, AO, BC, 7E, FD, 26, F5, CC 
760 DAT AFF , EO , F3 , 7E , FF , FD , 7E , FF , 
CC, FF, EO, F3, 7E, FD, FD, 7E, FD, 8C, 6, 
0,27,5,BE,7E,FF,20,D9,39,CC,6,4, 
FD,7E,FD,CC,6, 17, FD, 7E, FF, 8E, 6, 4 
, A6,S0,48,48,48,48,48, A7, IB, A6,8 
4,44,44,44, AB, IB, A7, 1B,BC,7E,FF, 
26, E9, CC, O, 20, F3, 7E, FD, FD, 7E, FD, 
CC, O, 20, F3, 7E, FF, FD, 7E 
770 DATAFF,BE,7E,FD,8C, 1D,E4,26, 
CF,39,CC,5,FF,FD,7E,FD,CC,6, 12, F 
D,7E,FF,8E,6, 12, A6, 84, 44, 44, 48, 4 
8,48,48,4a,48,48,8B,7F,A7,5, A6,8 
4,44,44,44,44,44, A7, 4, A6, 82, 48, 4 
8, 48, AB, 5, A7, 5, BC, 7E, FD, 26, E9, CC 
,0,20,F3,7E,FD,FD,7E,FD,CC,0,20, 
F3,7E,FF,FD,7E,FF,BE,7E 
780 DATAFF,8C, 1D,F2,26,C0,39 
790 DATA15252S08039500DRAG0NS, 15 
1 0 1 025034500W I Z ARDS ,101 520050437 
50G I ANTS ,061 5080403 1 6500GRES , 06 1 
5070002 1400LG LI ZARDS, 0505051002 
1 250SERPENTS , 0509060503 1 250PR I ES 
TS, 03050502040750SP I DERS, 0102030 
6040600BURGULARS , O 1 020600020450G 
I ANT ANTS 

800 DAT AO 1 040303030550G0BL I NS , O 1 
040304030600SKELETONS , O 1 0606020 1 
0750Z0MB I ES, 02080606041 lOOWERERA 
TS , 04 1 1 060305 1 200HARP I ES , 05 1 4060 
505 1 500G ARGO YLES , 0820080004 1 SOOT 
ROLLS, 10301 500024 125HYDRAS, 1 1 104 
900036300EV I L I DDLS , 1 83022 1 00599 
99DEM0NS 

810 CP=l:PMODE4:COLORO, l:PCLS:SC 
REEN 1,0: F0RL=50T0 1 30STEP20 : L I NE ( 
50, L) - < 150, L+20> , PSET, B: NEXT: FOR 
L=70T0130STEP20: LINE <L, 50) - (L, 15 
O) , PSET: NEXT: L*=" ADVENTURERS SET 
UP " : DRAW "BM10,10":J=17: G0SUB2070 
:L*="HIT P TO PLACE ": DRAW "BM 18 
, 20" : J=16: GOSUB2070 

820 L*="CHARACTER UP" : DRAW" BM 166 
,40": J=12:GOSUB2070:L*="DO NOT P 
UT ADVENTURERS IN SAME BOX ": DRAW 
" BMO ,181": J=34 : G0SUB2070 : L*= " F AC 



ING" : DRAW "BMO, 60" : J=6: G0SUB2070: 
DRAW"BM25, 100U35NG15F15" : X=56: Y= 
56 : X 1 =0 : Y 1 =0 : L«= " STATUS " : J=6 : DRA 
W"BMO, 140" : GaSUB2070 
830 L*=N* (CP) : DRAW"BM174, 50" : J=L 
EN<N*<CP) ) :G0SUB2070 
840 6ET(X, Y)-(X+7, Y+7) ,CY,G 
850 PUT(X, Y)-<X+7, Y+7) ,MC, PSET: P 
UT(X, Y)-(X+7, Y+7) ,MC,NOT 
860 L*=INKEY*: IFL*=""THEN850ELSE 
I FL*=CHR* ( 94 ) THENY 1 =-20ELSE I FL*= 
CHR* (10) THENY 1 =20ELSE I FL*=CHR* ( 8 
) THENX1=~20ELSEIFL*=CHR« (9) THENX 
1=20ELSEIFL*="P"THEN880ELSEIFL*= 
" S " THENG0SUB2 1 30 : G0T0850ELSE850 
870 IFX + X1<560RX + X1>1360RY+Y1<54> 
ORY+ Y 1 > 1 36THENX 1 =0 : Y 1 =0 : G0T0S50E 
LSEPUT(X, Y)-(X+7, Y+7) ,CY, PSET: X= 
X+Xl: Y-Y+Yl: X1=0: Y1=0:G0T0840 
880 IFCP=1THENPUT(X, Y)-(X+7, Y+7) 
, MC , PSET ELSE I FN* (CP ) = " MERCENARY 
" THENPUT ( X , Y ) - ( X +7 , Y+7 ) , MR , 7SET 
ELSEPUT(X, Y)-(X+7, Y+7) ,HM,PSET 
890 CP(CP,0)=INT( (X-56)*.6+62) :C 
P(CP,2)=CP(CP,0) :CP(CP, 1)=INT( (Y 
-56)*. 6+133) :CP(CP,3)=CP(CP, 1) :C 
P=CP+ 1 : I FCP=C9+ 1 THEN900ELSEL I NE ( 
174, 44) ~ (255, 50) , PRESET, BF: G0T08 
30 

900 L«="RED0 YES OR N0":DRAW"BM1 
60, 100": J=14:B0SUB2070 
910 L*= I NKE Y* : I FL*= " Y " THEN8 1 OELS 
E I FL*= " N " THENRETURNELSE9 1 O 
920 FORL= 1 O4T0 1 1 8 : I FPPO I NT ( 92 , L ) 
=OTHENRETURNELSENEXT: G0SUB2100 
930 YP=YP+l:PUT(88, 125)-(95, 132) 
,MC, PSET: EXEC«<H7F01: LINE (O, 148)- 
(185, 191) , PRESET, BF:X=18:F0RJ=XP 
-2T0 XP+2:DP=PEEK (31000+ (YP+2)»3 
1+J) : IFDP>30THENDP=DP-30: Y=166:6 
0SUB2090 

940 G0SUB4 1 0 : DRAW " BM " +STR* ( X ) + " , 
166A"+STR* (A) +DP* (L) : X=X+37: NEXT 
950 RETURN 

960 F0RL=66T080 : I FPPO I NT ( 92 , L ) =0 
THENRETURNELSENEXT : G0SUB2 1 OO 
970 YP=YP-l:PUT(88,51)-(95,5S) ,M 
C , PSET : EXEC&H7F38 : L I NE ( 0 , O ) - ( 1 85 
,36) , PRESET, BF: X= 18: FORJ=XP-2TQ 
XP+2:DP=PEEK (31000+ (YP~2) #3 1+J) : 
I FDP >30THENDP=DP-30 : Y= 1 8 : G0SUB20 
90 

980 G0SUB4 1 0 : DRAW " BM " +STR* ( X ) + " , 
18A"+STR* (A) +DP* (L) : X=X+37: NEXT 
990 RETURN 

1000 F0RL=104T01 18: IFPPOINT (L, 92 
) =OTHENRETURNELSENEXT: G0SUB2100 
1010 XP=XP+l:PUT(125,a8)-(132,95 
) , MC, PSET: EXEC&H7F6F: LINE ( 148, O) 
-(185, 191) , PRESET, BF:Y=1S:F0RJ=Y 
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P-2T0 YP+2:DP=PEEK(31002+J»31+XP 
) : IFDP>30THENDP=DP-30: X=166:60SU 
B2090 

1 020 B0SUB4 1 O : DRAW " BM 1 66 , " +STR* ( 
Y) +"A"+STR* ( A) +DP4 (L) : Y=Y+37: NEX 
T: RETURN 

1 030 F0RL=66T080 : I FPPO I NT ( L , 92 ) = 
OTHENRETURNELSENEXT:GOSUB2100 
1040 XP=XP-1 :PUT(51 ,S8)-(58,95) , 
MC , PSET : E X EC?<H7FB0 : L I NE ( O , O ) - ( 36 
, 191 ) , PRESET, BF: Y=18: F0RJ=YP-2 T 
OYP+2: DP=PEEK (30998+J*31+XP) : IFD 
P >30THENDP=DP-30 : X= 1 8 : G0SUB2090 
1 050 G0SUB4 1 0 : DR AW " BM 1 8 , " +STR* ( Y 
) +"A"+STR* (A) +DP* (L) : Y=Y+37:NEXT 
: RETURN 

1060 F0RL=0T010: IFCA<L,0)<>XP AN 

DCA(L,1><>YP THENNEXTELSEllOO 

1 070 FORL=OTO 10:1 FCA ( L , 0 )< >OTHEN 

NEXTELSE1090 

1080 GOTO 1120 

1090 CA(L,0>=XP:CA(L, i>=yp:ca<l, 
2)=R 

1 lOO NU=31000+YP*31+XP:P0KENU,PE 
EK < NU ) -30 : I FK*=CHR* ( 94 ) THENYP= YP 
+1ELSEIFK$=CHR* (10) THENYP=YP-1EL 
SE I FK*=CHR* < 8 ) THENXP=XP+ 1 ELSEXP= 
XP-1 

1110 60T0220 

1120 'FIGHT SEQUENCE 

1 1 30 PM0DE4 : COLORO , 1 : SCREEN 1 , O 

1 1 40 PCLS : F0RK=23T0 1 79STEP 1 2 : FOR 

L=12T0168STEP12: PSET (L, K) : NEXTL, 

K:LINE(0, 11)-(180, 191) ,PSET,B: J= 

LEN<MO*(R) )-15:L*=RIGHT*(M0«(R) , 

J+1 ) : DRAW"BM30, 10" : G0SUB2070: L*= 

" F I GHT " : J=6 : G0SUB2070 : L*= " MOVE " 

: J=4 : DRAW " BM 1 84 , 1 50 " : GOSUB2070 : L 

*="FI6HT": J=5 

1 1 50 DRAW •' BM 1 84 , 1 60 " : 60SUB2070 : L 
«= " POT I ON " : J=6 : DR AW " BM 1 84 , 1 70 " : G 
0SUB2070 : L*= " STATUS " : J=6 : DRAW " BM 
1 84 , 1 80 " : 60SUB2070 : CP= 1 : L*= " UP " : 
J =2 : DRAW " BM2 12,60": G0SUB2070 
1160 F0RL=1T0 RND(6)-1 
1170 X=INT(RND(143)/12>*12: Y=INT 
(RND<aO) /12)*12+ll:LINE(X, Y>-(X+ 
RND(4)*12, Y+RND(4)*12) ,pset,bf:n 
EXT 

1 1 80 S0UND200 , 1 : X=CP < CP , O ) : Y=CP ( 
CP, 1) : IFCP=1THENPUT<X, Y)-(X+7, Y+ 
7 ) , MC , PSETELSE I FN* < CP ) = " MERCENAR 
Y " THENPUT ( X , Y ) - ( X+7 , Y+7 ) , MR , PSET 
ELSEPUT(X, Y) -<X+7, Y+7) ,HM,PSET 
1190 CP=CP+l: IFCP<>C9+lTHENliaOE 
LSEAL=VAL (LEFT* (MO* (R) , 2) ) : MP (O, 
2) =VAL (MID* (MO* (R) ,3,2)): DF=VAL ( 
MID* (MO* (R) ,5,2) ) : DP=VAL (MID* (MO 
* (R) , 7, 2) ) : MP=VAL (MID* (MO* (R) , 9, 
2) ) :NU=0:F0RL=1T010:NU=NU+AL(L) : 



NEXT: NU=INT (NU/ (RND (0) +. 70) /AL) 
1 200 I FNU >50THENNU=50ELSE I FNU< 1 T 
HENNU=1 

1210 EX=VAL(MID*(M0*(R) , 11,4) >«N 
U 

1220 F0RL=1T0 NU-1 : MP (L, 2) =MP (O, 

2) :next 

1230 F0RL=0T0 NU-1 

1240 X=INT(RND(160)/12)*12+14:Y= 
INT( (RND ( 180) +1 1 ) /12) ♦12+1 : IFPPO 
I NT ( X +4 , Y+4 ) =OTHEN 1 240ELSE I F X >59 
ANDX < 1 2 1 ANDY > 1 30THEN 1 240ELSEMP ( L 
, O ) = X : MP ( L , 1 ) = Y : PLAY " V3002T255L2 
55 " : FORK= 1 T030 : PLAY " CCD V- " : NE X T : 
FORK= 1 T05STEP2 : C I RCLE ( X +4 , Y+4 ) , K 

:nextk,l 

1 250 TT=0 : L=RND ( 1 00 > : I FL >50THEN 1 
550ELSECP=1 

1260 L*=N*(CP) : J=LEN(L*) :DRAW"BM 
184,70":G0SUB2070: X=CP(CP,0) : Y=C 
P(CP, 1) :6ET(X, Y)-(X+7, Y+7) ,CY,6 
1 270 DRAW " BM204 , 1 40C0NU30NH 1 5NE 1 
5":PUT(X, Y)-(X+7, Y+7) ,CY, PRESET: 
DRAW " BM204 , 1 40C 1 NU30NH 1 5NE 1 5C0 " : 
PUT(X, Y)~(X+7, Y+7) ,CY,PSET 
1 280 K*= I NKE Y* : I FK*= " " THEN 1 270EL 
SE I FK*= " M " GOSUB 1 320ELSE I FK*= " F " G 
OSUB 1 3S0ELSE I FK*= " P " GOSUB 1 500ELS 
E I FK*= " S " G0SUB2 1 30 : GOTO 1 270ELSE 1 
270 

1290 IFNU=0THEN1730 

1300 CP(CP,0)=X:CP(CP, 1)=Y:LINE( 

1 84 , 63 ) - ( 255 , 70 ) , PRESET , BF : CP=CP 

+1 : IFCP=C9+1THENTT=TT+1ELSE1260 

1310 IFTT=2THEN1250ELSE1550 

1320 PUT(X, Y)-(X+7, Y+7) ,CY,PSET: 

PUT(X, Y)~(X+7,Y+7) , MO, PRESET 

1 330 K*= I NKE Y* : I FK*= " " THEN 1 320EL 

SEIFK*=CHR* (94) THENL=Y-6: J=Y-1 : K 

=X ELSEIFK*=CHR*(10)THENL=Y+8: J= 

Y+14:K=X ELSEIFK*=CHR* (8)THENL=X 

~6:J=X~l:K=Y ELSEIFK*=CHR* (9)THE 

NL=X+8: J=X+14: K=Y ELSEIFK*=CHR* ( 

13) THENCC=0: PUT ( X, Y) - ( X+7, Y+7) , C 

Y , PSET : RETURNELSE 1 320 

1340 IFK=X THEN1350ELSEF0RLL=L T 

O J : I FPPO I NT ( LL , K ) =OTHEN 1 320ELSE 

NEXT:G0T01360 

1350 FORLL=L TO J : IFPPOINT (K, LL) 
=0 OR PP0INT(K+1,LL)=0THEN1320EL 
SENEXT 

1 360 I FK*=CHR* ( 94 ) THENY=Y- 1 2ELSE 
IFK*=CHR* ( 10) THENY=Y+12ELSEIFK*= 
CHR* (9) THENX=X+12ELSEIFK*=CHR* (8 
)THENX=X-12 

1 370 CC=CC+ 1 : I FCC=3+PO ( CP , 3 ) THEN 
CC=0: PUT (X, Y) - (X+7, Y+7) ,CY, PSET: 
RETURNELSE 1320 

1380 L*="E R T": J=5:DRAW"BM190,9 
0 " : G0SUB2070 : L*= " D G " : J=6 : DRA 
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W"BM190, 100":B0SUB2070:L*="C V B 

" : J=5 : DRAW ■■ BM 1 90 , 1 1 0 " : G0SUB2070 : 

GET<X, Y)-(X+7, Y+7) ,CY,G 

1390 PUT<X, Y)-(X+7, Y+7) ,MO,PRESE 

T:PUT<X, Y)-<X+7, Y+7) ,CY,PSET:K*= 

I NKE Y* : I FK*= " " THEN 1 390 

1400 I FK*= " E " THEN X1=-12:Y1=-1 2EL 

SE I FK*= " R " THENX 1 =0 : Y 1 =- 1 2ELSE I FK 

*="T"THENX1=12: Y1=-12ELSEIFK*="B 

" THENX 1 = 1 2 : Y 1 =OELSE I FK*= " B " THENX 

1 = 1 2 : Y 1 = 1 2ELSE I FK*= " V " THENX 1 =0 : Y 

1=12ELSEIFK*="C"THENX1=-12: Yl=12 

ELSE I FK*= ■' D " THENX 1 =- 1 2 : Y 1 =OELSE I 

FK*= " Q " THEN 1 440ELSE 1 390 

1410 FORL=OTO NU-1 : IFMP <L, O) =X+X 

1 ANDMP<L, 1)=Y+Y1 THEN1420ELSENE 

XT:G0T01390 

1420 L=RND(100) : IFL< (AL(CP)+PO(C 

P,0) )*3-DP+40THEN145O 

1 430 FORL= 1 T020 : PLAY " T255L255V 1 5 

□3C04C " : NE X T : DRAW " BM 1 90 , 1 30 " : L=R 

ND(8) : IFL=1THENL*="STUPID": J=6:G 

0SUB2070ELSE I FL=2THENL*= " W I MP " : J 

=4 : G0SUB2070ELSE I FL=3THENL*= " LOS 

ER" : J=5: G0SUB2070ELSEIFL=4THENL* 

= " SW I SH " : J =5 : G0SUB2070 

1440 F0RL=1T0500: NEXT: LINE (185, 8 

0 ) - < 255 , 1 30 ) , PRESET , BF : RETURN 

1 450 PLAY " V20T4L403G04CL3EL4CE " : 

DRAW"BM190, 130" : L=RND (6) : IFL=1TH 

ENL*="PDW" : J=3: B0SUB2070ELSEIFL= 

2THENL*="BAM" : J=3: G0SUB2070ELSEI 

FL=3THENL*=" CLOBBER" : J=7: G0SUB20 

70ELSEIFL=4THENL*="SLASH" : J=5: GO 

SUB2070ELSEIFL=5THENL*="SMASH" : J 

=5:G0SUB2070 

1460 F0RL=1T0500:NEXT 

1470 FORL=OTO NU-1 : IFMP (L, O) <>X+ 

XI ORMP(L, DOY+Yl THENNEXT 

1480 MP<L,2>=MP<L,2)-RND(DF(CP)+ 

PO<CP, 1) ) : IFMP<L,2) >0THENLINE(18 

5 , 80 ) - ( 255 ,130), PRESET , BF : RETURN 

ELSEFORJ = 1 T05STEP2 : C I RCLE ( MP ( L , O 

)+4,MP<L, l)+4> , J, 1 : NEXT: LINE < 185 

,80)-<255, 130) , PRESET, BF 

1490 FORK=L TO NU-1 : MP <K, O) =MP (K 

+ 1,0) :MP(K, 1)=MP<K+1, 1) :MP(K,2) = 

MP(K+1,2) : NEXT: NU=NU-l: RETURN 

1500 L=l:CLS: PRINT" O NONE" 

1510 PRINTLjPO* (L) : IFP0*(L+1)<>" 

" THENL=L+ 1 : GOTO 151 OELSE I NPUT " wh i 

ch one";L: IFPO* (L) =" "THENPMODE4: 

COLORO, 1 : SCREEN 1 , O: RETURN 

1520 IFLEN(PO*<L) ) =15THENP0 (CP, O 

) =P0 ( CP , O ) +RND ( 4 ) +4ELSE I FM I D* ( PO 

*(L) , 11, 1)="H"THENBP(CP)=B(CP)EL 

SEIFMlDt (PO* (L) , 1 1 , 1 ) ="S"THENPO ( 

CP, 1)=P0(CP, 1)+RND(10)+8ELSEIFMI 

D*(PO*(L) ,11, l)="R"THENPO(CP,2)= 

PO (CP, 2) +RND (20) +10ELSEP0 (CP, 3) = 



7 

1530 FORK=L T09: PO* (K) =P0* <K+1 ) : 
NEXT: PM0DE4: COLORO, 1 : SCREEN 1 , O: R 
ETURN 

1540 GOTO 1540 

1550 M0=0: J=LEN(MO*(R) )-15:L*=MI 
D*(MO*(R) , 15, J) :DRAW"BM184,70":G 

0SUB2070 

1560 CP=l:HY=300 

1 570 L= I NT ( SQR ( ABS ( CP ( CP , O ) -MP ( M 
O, O) ) -^2+ABS (CP (CP, 1 ) -MP (MO, 1 ) ) "^2 
)):IFL<HY THENX1=CP(CP,0) : Y1=CP( 
CP, 1) :HY=L:C1=CP 

1 580 CP=CP+ 1 : I FCP< >C9+ 1 THEN 1 570 
1590 IFHY<20THEN1670ELSEM1=MP: X2 
=MP(MO,0) : Y2=MP(MO, 1) 
1600 IFABS(X1-X2) >ABS ( Y1-Y2) ANDP 
POINT (X 2+1 6, Y2+4) < >OANDPPOINT ( X2 
+ 17, Y2+4 ) < >OANDSGN ( X 1 -X2 ) <>- 1 AND 
X2< 169THENX2=X2+12: G0T01640ELSEI 
FPPOINT (X2+4, Y2+16X >0ANDPP0INT ( 
X2+5 , Y2+ 1 6 )< >0ANDSGN ( Y 1 ~Y2 ) <>- 1 T 
HENY2=Y2+ 1 2 : GOTO 1 640 
1610 IFSGN(X1-X2)<>-1ANDPP0INT(X 
2+16, Y2+4 ) < >0ANDPP0 1 NT ( X2+ 1 7 , Y2+ 
4) < >0ANDX2< 169THENX2=X2+12: GOTOl 
640 

1620 IFABS(X1-X2> >ABS (Y1-Y2) ANDP 
POINT ( X2-8, Y2+4X >OANDPPOINT ( X2- 
7, Y2+4X >OTHENX2=X2-12: G0T01640E 
LSE I FPPO I NT ( X2+4 , Y2-8 ) < >OANDPPO I 
NT ( X2+5 , Y2-S ) < >OANDSGN ( Y2-Y 1 ) = 1 T 
HENY2= Y2- 1 2 : GOTO 1 640 
1630 1 FPPO I NT ( X2-8, Y2+4) < .>OAndPP 
OINT (X2-7, Y2+4X >0THENX2=X2-12 
1640 F0RL=1T05STEP2: CIRCLE (MP (MO 
,0) +4, MP (MO, l)+4) ,L, l: NEXT: MP (MO 
, O) =X2: MP (MO, 1 ) =Y2: S0UND200, 1 : FO 
RL= 1 T05STEP2 : C I RCLE ( X2+4 , Y2+4 ) , L 
,0:NEXT:M1=M1-1:IFM1 =0 ANDMO=NU- 1 
THEN 1 660ELSE I FM 1 =OTHENMO=MO+ 1 : GO 
TO 1560 

1 650 L= I NT ( SQR ( ABS ( X 1 - X 2 ) "'^2+ ABS ( 
Yl-Y2) '^2) ) : IFL<20ANDM0=NU-1THEN1 
66OELSEIFL<20THENM0=M0+l : GOTO 156 
OELSE 1600 

1660 TT=TT+l: IFTT=1THENCP=1:LINE 
( 1 84 , 63 ) - ( 255 , 70 ) , PRESET , BF : GOTO 
1 260ELSEL I NE ( 1 84 , 63 ) - ( 255 , 70 ) , PR 
ESET,BF: GOTO 1250 

1 670 FORL= 1 T05STEP2 : C I RCLE ( MP ( MO 
,0) +4, MP (MO, l)+4) ,L, l: CIRCLE (MP ( 

MO, O) +4, MP (MO, i)+4> ,l,o:next:l=r 

ND(IOO) : IFL<AL*3.75-DP(C1)~P0(C1 
,2)+25THEN1690 

1 680 L*= " M I SSED " : J =6 : DRAW " BM 1 85 , 
1 20 " : G0SUB2070 : PLAY " T 1 2L404 V 1 5BA 
GFDEC" : F0RL=1T0500: NEXT: LINE ( 185 
, 113) -(250, 120) , PRESET, BF:M0=M0+ 
1 : I FMO=NU THEN 1 660ELSE 1 560 
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1 690 PLAY " T4V25L204DL403B04EL2D0 
3B " : L«= " H I T " : J =3 : DRAW " BM 1 95 , 1 20 " 
: eOSUB2070: BP (CI >=BP (CD -RND <DF) 
:6ET(X1, Yl)-(Xl+7, Yl+7) ,CY,e:FOR 
L=lT02O:PUT(Xl, Yl)-(Xl+7, Yl+7) ,C 
Y,PRESET:PUT(X1,Y1)-<X1+7, Yl+7) , 
CY, PSET: NEXT: LINE ( 185, 113)-<250, 
120) , PRESET, BF 

1 700 MO=MO+ 1 : I FBP < C 1 ) >OANDMO=NU 
THEN 1660 

1710 I FBP (CD >0THEN 1 560ELSEL I NE ( 
XI, YD- (X 1+7, Yl+7) , PRESET, BF: FOR 
L=C1 TO C9 

1715 CP(L,0)=CP(L+1,0) :CP(L, 1)=C 
PfL+1, 1>:B(L>=B(L+1) :BP(L)=BP(L+ 
1) :DF(L)=DF(L+D : DP (L) =DP (L+D : A 
L(L)=AL(L+D :EX (L)=EX (L+D :N*(L) 
=N*(L+D :P0(L,0)=P0(L+1,0) :PO(L, 
1)=P0(L+1, 1) :P0(L,2)=P0(L+1,2) :p 
0 ( L , 3 ) =P0 ( L+ 1 , 3 ) : NE X T : LC= 1 : C9=C9 
-l: IFC1=1THEN2270 
1720 IFMO=NU THEN 1660ELSE 1560 
1730 'BOUTY PHASE 

1740 CLS:PRINT"e>:perience collec 
ted";EX*(l-( (AL(1)-1)*.05) ) :PRIN 
T"credit5 collected"; :C2=INT(EX/ 
(RND (C9) +1) ) : CR=CR+C2: PRINTC2: PR 
INT"credits to date" ; CR: PRINT"po 
tions collected":L=RND(10) : IFL>A 
L THENPRINT"NONE": GOTO 1840 
1750 F0RL=1T010: IFPO* (L) =" "THENl 
770ELBENEXT 

1760 PR I NT "NONE": GOTO 1840 

1770 K=RND(5):0N K GOTO 1780, 1790 

, 1800, 1810, 1820 

1780 P0*(L)="POTION OF SKILL": GO 
TO 1830 

1790 PO*(L>="POTION OF HEALING": 
60T0183O 

1800 PO* (L)="POTION OF STRENGTH" 
: GOTO 1830 

1810 PO*(L)="POTION OF REFLEXES" 
: GOTO 1830 

1820 PO*(L)="POTION OF QUICKNESS 

II 

1830 PRINTPO*(L) 

1 840 PR I NT : PR I NT : PR I NT "< en t er > " : 
EX=EX*(l-( (AL(D-1)*.05) ) 
1850 K=C9-1 

1860 IFK<>0THENF0RL=2T0 C9:IFN*( 
L)<>"MERCENARY"THEN EX (L)=EX(L)+ 
EX/2/K: NEXTELSENEXT 
1870 EX ( 1 )=EX ( 1 ) +EX/2 
1 880 L*= I NKE Y* : I FL*= " " THEN 1 880 
1890 F0RL=1T0 C9: AL=AL (L) : AL (L) = 
INT(EX(L)/3280+l) : IFALOAL (L) THE 
NB (L) =B (L) +RND (2) : NEXTELSENEXT 
1 900 F0RL= 1 TO 1 0 : FORK=OT03 : PO ( L , K 
)=0:NEXTK, L 

1 9 1 O I F AL ( 1 ) =20THEN2280 



1920 iflc=ithenlc=o:gotosioelsef 

0RL=1T010:CP(L,0)=CP(L,2) :CP(L, 1 
)=CP(L,3) : NEXT: RETURN 
1930 CLS: PR I NT "STAYING IN TOWN H 
AS COST Y0U":L=RND(100)+100:PRIN 
TL; "CREDITS" : CR=CR-L: F0RL=1T0 C9 
:BP(L)=B(L) :NEXT:G0SUB2120 
1940 G0SUB21 lO: PRINT" (1) DO YOU W 
ANT TO GAIN LEVELS. ": PRINT" (2) HI 
RE ON HENCHMEN, MERCENARIES" ;: PR 
INT" (3) GO BACK TO THE DUNGEON.": 
INPUTL: IFL=3G0SUB810: G0TO22OELSE 
I FL= 1 THEN 1 950ELSE 1 FL=2THEN 1 990EL 
SE1940 

1950 CLS:GOSUB21 io:forl=ito C9:P 
RINTL; N* (L) :NEXT: INPUT"WHO IS TO 
GAIN EXPERIENCE"! L: IFN*(L)=""TH 
ENCLS:G0T01940 

1960 INPUT "HOW MANY CREDITS ARE 
YOU SPENDING" ; K: 1FK<0THEN 

1950ELSEIFK>CR THENK=CR 
1970 EX= (RND (0) +. 5) *CR:PRINT"YOU 
HAVE GAINED ";:PRINT USING"*. ## 
";EX/3280; :PRINT" PERCENT OF 
A LEVEL": EX (L)=EX (L> +EX: AL=AL(L> 
: AL ( L > = I NT ( EX ( L ) /3280+ 1 ) : CR=CR-K 
: PR I NT: PR I NT" <Bnter>"-, : IFAL< 

>AL(L)THENB(L>=B(L) +RND(2) 
1 980 K*= I NKE Y* : I FK*= " " THEN 1 980EL 
SECLS: GOTO 1940 
1990 CLS:G0SUB2110 

2000 IFC9=10THENPRINT"N0 ONE WAN 
TS A J0B":ELSE2020 

20 1 O K*= I NKE Y* : I FK*= " " THEN20 1 OEL 
SECLS: GOTO 1940 

2020 PR I NT "HENCHMEN COST 2000 CR 
ED ITS": PR I NT "MERCENARIES COST 15 
00 CREDITS": PR I NT "ENTER 0 CREDIT 
S FOR NE I THER " : I NPUT " AMOUNT " ; L : I 
FL= 1 500THENCR=CR-L : G0SUB2 1 20 : GOT 
02030ELSE I FL=2000THENCR=CR-L : 60S 
UB2 1 20 : G0T02040ELSECLS : GOTO 1 940 
2030 C9=C9+ 1 : L=C9 : N* ( L ) = " MERCENA 
RY":BP(L)=8:B(L)=8:DF(L)=6:DP(L) 
=6: EX (L> =3300: AL (L) =2: CLS: G0TO19 
40 

2040 C9=C9+ 1 : L=C9 : BP ( L ) =RND ( 8 ) +3 
: DF (L) =RND (7) +2: DP (L) =RND (7) +2: B 
(L)=BP(L) :EX (L>=3300: AL(L)=2:PRI 
NT "WHAT NAME FOR YOUR HENCHMAN 
(UNDER 9 LETTERS) ":PRINT"B0DY 
PT/DAMA6E F AC. /DEFENSE PTS.";:P 
RINTTAB(4)B(L) ;TAB( 15)DF(L) ; TAB ( 
27)DP(L) 

2050 I NPUTL* : Nt ( L ) =L* : CLS : GOTO 1 9 
40 

2060 G0T02O60 

2070 F0RL=1T0 J : LL=ASC (MID* (L*, L 
, 1) ) -65: IFLL<OTHENDRAW"AOBR4"ELS 
EDRAW " AOCO " +L* ( LL ) + " BR4 " 
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2080 NEXT: RETURN 

2090 DRAW " BM " +STR* ( X > + " , " +STR* < Y 

) +"NE2NF2NG2H2" : RETURN 

2 1 00 DRAW " BM92 , 92NE2NF2NG2H2 " : RE 

TURN 

2110 PRINT-you have" ; CR; "credi ts 
" : RETURN 

2120 IFCR<OGOT02260ELSERETURN 
2130 CLSrPRINT" ATT. LVL./BOD 
Y/DAM FAC. /DEF. "5 

2140 F0RK=1T0 C9: PRINTN* (K) 5 : PRI 
NTTAB ( lO) AL (K> +P0 <K, 0) ; TAB < 14) BP 
(K) ;TAB<21)DF(K)+P0(K, 1) ;TAB(27> 
DP<K)+P0<K,2) :NEXT:PRINT:PRINT"C 
REDITS";CR 

2 1 50 K4= I NKE Y* : I FK«= " " THEN2 1 50EL 
SEPM0DE4: COLORO, 1 : SCREEN 1 , O: RETU 
RN 

2 1 60 PLAY " V3 1 L255T25504 " : FORL= 1 T 
030: PLAY-BA6FEDCV-" : NEXT: PLAY "02 
V3 1 L20T20BAe " : FORL= 1 T030 : PLAY " GV 
-": NEXT: PCLS:L*=" YOUR PARTY HAS 
BEEN SURPRISED BY" : J=32: DRAW"BM1 
0, 80" : G0SUB2070: DRAW"BRBURULDBU3 
RULD " : R=RND ( 20 ) - 1 : J =LEN < MO* ( R ) ) - 
14 

2170 L4=RIGHT*(M0*(R> , J) :DRAW"BM 
99 , 90 " : G0SUB2070 : F0RL= 1 TO 1 000 : NE 
XT: GOSUBl 120: PM0DE4: COLORO, 1 : PCL 
S : SCREEN 1,0: RETURN 

2180 CLS:INPUT"DO YOU WISH TO SA 
VE DUNGEON ( Y/N) " ; L*: IFL*="N 

"THENPM0DE4: COLORO, 1 : SCREEN 1 ,0:6 
0T026O 

2190 P0KE65495, O: J=32000: F0RL=1T 
0 C9:P0KEJ,BP(L) :P0KEJ+1,DF<L) :P 
0KEJ+2,DP(L) :L*=HEX*(EX<L) ) : POKE 
J +3 , VAL ( " &H " +LEFT* ( L* , LEN ( L* ) -2 > 
> :P0KEJ+4, VAL("8<H"+RIGHT*<L*,2> > 
: J=J+5:NEXT:P0KEJ,42: J=J+i 
2200 F0RL=1T0 C9:F0RK=1T0 LEN(N* 
(L) ) : POKEJ , ASC (MID* (N* (L) , K, 1 ) > : 
J=J+1 : NEXT: POKEJ , 42: J=J+1 : NEXT: P 
0KEJ,0: J=J+1:F0RL=1T0 C9: POKEJ, B 
<L> : J=J+1 : NEXT: POKEJ , 42: L*=HEX* ( 
CR> : IFLEN (L*) <3THENP0KEJ+1 , O: POK 
EJ+2, VAL ( "S<H"+L*) : POKE J +3, 42: GOT 
02220 

2210 POKEJ+1 , VAL ( "«tH"+LEFT* <L*, L 
EN(L*)-2> ) :P0KEJ+2, VAL<"&H"+RIGH 



T* <L*, 2) ) : PDKEJ+3, 42 
2220 J = J +4 : F0RL=0T0 1 0 : POKEJ , CA ( L 
, 0) : POKEJ+1 , CA (L, 1 ) : POKEJ+2, CA <L 
,2) : j=j+3:next:l=i 

2230 I FPO* ( L ) = " " THEN2240ELSEK=LE 
N(PO*<L> ) :F0RLL=1T0 K: POKEJ, ASC ( 
MID*(PO*<L) ,LL, 1) > : J=J+1:NEXT:P0 
KEJ , 42: J=J+1 : L=L+1 : G0T02230 
2240 POKEJ , 255 : P0KE3 1 962 , XP : POKE 
31963, YP: PR I NT "PLACE TAPE OF ADV 
ENTURES IN RECORDER PRESS 

PLAY & RECORD": INPUT "NAME OF CU 
RRENT ADVENTURE " ; L* : I FLEN ( L* > >ST 
HENL*=LEFT* (L*, 8) 

2250 P0KE65494,0:CSAVEML*, 31000, 
32767,0: END 

2260 CLS: PR I NTS 100, "THERE ARE NO 
LOANS MADE IN THIS GAME 

BUDDY, YOU'RE GOING 

TO JAIL. ":PR1NT@400, "GAME OVER" 
: F0RL=1T01000: NEXT: END 
2270 FORL= 1 TO 1 O : SCREEN 1,1: SCREEN 
1 , O : NE XT : PLAY " V3 1 T2L202BP64BP64L 
8BP64L2B03P64DP64L8D-P64L4D-P64L 
402BP64BP64B-P64L1B" : END 
2280 F0RL=1T01000:NEXT:P0KE65495 
, O: CLSO: L*=CHR* ( 128) : CO*=L*+"you 
" +L*+ "have" +L*+ " at t ai ned " +L*+ " j e 
d i " +L*+ "knight " +L* : F0RL=0T0224 : P 
R I NTSL , CO* ; : NEX T : P0KE65494 , 0 : PLA 
Y " T30L4 V30 " : FORL= 1 T030 : PLAY " D3G0 
4CL3EL4CEV-" : NEXT 

2290 F0RK=1T0100:L=RND<15) -l: IFL 
=7THENNEXTELSEC=143-»-16* (RND (8) -1 
) : PRINT@L*32, STRING* (32, C> ; : NEXT 
2300 F0RL=0T014: IFL=7THENNEXTELS 
EPRINT@L»32, STRING* (32, 128) ; : NEX 
T : F0RL=224T00STEP- 1 : PR I NTSL , CO* ; 
:NEXT:F0RL=lT015:PRINTeL*32, CO* ; 
: NEXT: F0RL=0TD14: PRINT@L*32, STRI 
NG*(32, 128) ; :NEXT 

2310 F0RL=1T030: PRINTSL-l , MID* (C 
O*, L, 1 > ; : PRINTeL+479, CHR* ( 120) ; : 
NEXT:CN*="congratulations"+L*+"c 
hamp":K=0 

2320 L=RND(21) : IFMID* (CN*, L, 1>=" 
X " THEN2320ELSEPR I NT@228+L , M I D* ( C 
N*,L, 1) ; :MID*(CN*,L, 1>="X":K=K+1 
: IFKO21THEN2320 
2330 PR I NT@350 , " " ; : END 




Gregory Clark 
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Adventure Contest — Non-Graphic Winner 



In the year 974 A.D. a male child was born. The 
parents, being very poor even for peasants, 
indentured the child to their local lord. 
The boy grew up within the castle walls, never 
seeing the outside world except through the tales of 
the knights, overheard while he fought with the 
castle dogs for scraps of food under the banquet 
tables. 

Never having been given a proper name, he 
thought of himself as Sir Randolf of the Moors. All 
of his waking moments he envisioned himself as 
the victor of many jousts, and even as the leader of a 
band of knights on a quest for the king. 

Being a rather husky young man, he was given 
the task of cleaning the lord's stables. Every chance 
he got, he learned to ride within the confines of the 
stable. This, in itself, showed a certain level of 
bravery, for if he was discovered even mounting a 
noble's steed he knew at the least it would mean a 
stout whipping. 

One fateful day, he happened upon a complete 
suit of armor belonging to a knight visiting the 
castle. What possessed him to don the armor, even 
he had no idea. Once suited, the logical step would 
be to set astride the knight's horse. 

As fate would have it, no sooner had he posi- 
tioned himself on the horse than one of the castle 
dogs started barking. The high spirited animal 
immediately galloped out of the open stable door 
and through the castle gates, carrying Sir Randolf 
with him. 

"Oh, what tricks the lord plays on me," la- 
mented Sir Randolf, when he finally regained con- 
trol of the horse. He found himself many miles from 
the castle, in completely unfamiliar surroundings, 
realizing that if he returned to the castle, an 
unknown, but definitely unpleasant fate awaited 
him. After long deliberation, he decided to con- 
tinue on the road and let fate do what she willed. 

Hungry and weary, after several days of riding, 
he came upon a small village situated at the base of 
a towering mountain. Here, his physical needs 
overcame his natural fear of the unknown. He 
boldly rode into the town, and when he had 
reached the inn, he realized that a relatively large 
group of townspeople had already formed around 
him. More came from every direction. 

Helping hands assisted him from his mount and 
fairly carried him to the inn. He was taken to a 
table, and even before he was seated a large tank- 
ard o? ale and a sizable chunk of venison were 
placed before him. 



Removing his helmet, he tried to explain his lack 
of funds. However, he was told that everything had 
been arranged and not to worry. Having failed in 
his protests, he began to devour the fare. 

A commotion at the entrance interrupted his 
meal. Looking up, he spied a rather rotund man 
approaching. Speaking very rapidly, he greeted Sir 
Randolf and thanked him for arriving so quickly. 
Randolf may have been short on worldliness, but 
he was bright enough to continue eating and just 
listen. 

It seems the stranger was the equivalent to 
mayor of the village. Randolf soon pieced together 
an idea of what he had happened upon. 

Near the peak of the mountain was a castle of an 
evil lord, Blandor. He had demanded and received 
heavy taxes for so many years that the village was 
now near collapse. Anyone opposing him was dis- 
posed of either by his guards or by some magical 
means. Recently, it had been rumored that he had 
fallen ill and died and his guards, fearing loss of his 
magical protection, had fled. 

Three weeks ago, prior to this moment, the 
mayor had requested from a neighboring lord the 
services of a knight to explore the castle and prove 
the rumor true or false. The town's messenger, a 
not-too-bright lad, had forgotten most of the reply 
by the time he had returned. The only thing he was 
sure of was that the knight carried the sign of the 
unicorn on his shield. 

Randolf now realized his situation: the mount 
and armor he had acquired belonged to the knight 
promised to the town. The townspeople were 
counting on him to go to the castle and discover 
exactly what was going on. He decided to attempt 
the quest himself. 

After two days of rest, he mounted up and 
headed to the castle. After a few hours of travel, a 
dark-cloaked man appeared on the trail ahead of 
him. He introduced himself as Herman,, former 
wizard to the evil Lord Blandor, who had dis- 
charged him after learning all he could of his craft. 

Herman had observed Randolf and had cor- 
rectly deduced his plight. In an attempt to help, he 
presented Randolf with a pea-sized ruby. The gem 
had the ability to break minor magical spells, but 
most of its power was exhausted. Only five charges 



( Greg Clark, a technician working for Nynex, writes 
programs as a hobby. His wife, Ruth, kindly refrains 
from commenting on how much time Greg spends at 
the keyboard.) 
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were left. Now, Randolf was told to rub the stone if 
he felt magic was being used against him. 

Herman also mentioned that there could be 
something left in his former workshop, but not to 
count on it, as Blandor had removed or destroyed 
most of his supplies just before casting him out. 
The ruby was the last magical object he had left. 

Randolf now stands before the castle of Blandor. 
An ignorant, but not stupid stable boy, he is ready 
to attempt the work meant for a fully-trained 
knight. All he has with him is the sword, dagger, a 
small belt pouch from the knight's equipment, and 
the ruby from Herman. The armor he has left in 
town, finding it too confining. 

There you have the situation. Randolf is a 
healthy young man, strong of heart and spirit, but 
sadly lacking in any knowledge needed to complete 
his quest. 

It is up to you to guide Randolf along the way. He 
will show no initiative, including self-preservation. 
You will be in total control and must make your 
instructions very simple and, at the same time, 
precise. If Randolf knows an object by one name, 
for example, he will not react to another common 
name for the same object. 

He best follows instructions given in two parts. 

First, tell him what action you wish him to per- 
form, and then specify to or with what. For exam- 
ple: The instruction "lift up the black pot" will only 
confuse him. However, just the word "lift" and 
then the word "pot" will get the desired results. 

Some one word commands will also be under- 
stood. 

"VIEW" will give a general description of the 
present location should Randolf forget where he is. 

"LIST" will get you all the objects Randolf is 
carrying that he can see. 

Randolf will tell you which ways he can move. 
To get him to move, just give him the first letter of 
the direction. For example, to have him move 
north, just give him the letter "N" and he will go 
north. 

Just remember, Randolf will only do what you 
tell him — no more, no less. 



PROGRAM 

100 VARIABLES 

150 FIRST INPUT 

200 SECOND INPUT 

300 ACTION DETERMINATION 

1 100 ACTION SECTIONS — 100 LINE BLOCKS 

5000 MOVEMENT TRAP + ASSIGNMENT 

5500 VARIABLE SUBROUTINES 

6000 LEVEL DESCRIPTIONS— 1000 LINE BLOCKS 

15000 MOVEMENT RESTRICTIONS 

20000 DATA LINES 



B$ ACTIONS 



1 


LOOK 


11 


CLIMB 


21 


HIT 


2 


SLAY 


12 


GET 


22 


DIG 


3 


JUMP 


13 


UNLOCK 


23 


BURN 


4 


LISTEN 


14 


STAND 


24 


OPEN 


5 


SAY 


15 


PULL 


25 


PUT 


6 


RUB 


16 


PUSH 


26 


SMELL 


7 


TURN 


17 


DROP 


27 


THROW 


8 


LIFT 


18 


CARRY 


28 


KICK 


9 


CUT 


19 


BRIBE 


29 


DIVE 


10 


STAB 


20 


BREAK 


30 


WIPE 



32 K 
ECB 









037F 


275. . . 


. 36CA 




52 


06C3 


306 .. . 


. 3BBC 




81 


0C17 


324 


4238 




95 


111E 


344 


4760 




118 


16FE 


368. . . 


. 4CDB 




141 


1B24 


385 


5409 




167 


2182 


397 


59D4 




201 


285E 


419 


5E68 




229 


2CF9 


431 


62B9 




254 .. . 


. . 322A 


END 


. . 6B89 



The listing: 



2 '==NON GRAPHICS ADVENTURE== 

3 '===FOR "THE RAINBOW "====== 

4 ' ====,==x===C0NTEST========== 

5 '=====BY GREGORY CLARK-=-=- 

6 122 MALE AVENUE«»=»»»« 

7 ' =S YRACUSE , NEW YORK , 1 32 1 9== 
======3 1 5-487-8406===«=« 

=== WRITTEN AUGUST 1982===- 
'=WITH MUCH HELP FROM KEVIN= 
'**PCLEAR 1 BEFORE LOADING** 
'*FOR 32K MEMORY-EXT BASIC** 



8 ' 

9 ' 
10 
11 
12 

1 3 ' =========================== 

14 print: cls:printe228, "sir rand 
olf of the moors" : f0rx=1t0200: pl 
ay"L200DDA":next 
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15 CLS: PRINT: PRINT: PRINT: PRINT: P 
RINT;" SKILL LEVEL 

II 

16 PRINT: PRINT; ">>>>SELECT DIGIT 
FROM 0 TO 9<<<<" 

17 PRINT:PRINT; "ZERO (O) = EASIE 
ST" 

18 print; "NINE <9) = HARDEST" 

19 PR I NT: PR I NT: INPUT "ENTER CHOIC 
E";Q 

20 Q1=INT(Q) 

21 IF Ql>9 OR QKO THEN CLS:PRIN 
T;" INPUT MUST BE AN INTEGER 

IN RANGE OF 0 TO 9": SO 
UND100,3:G0T015 

22 CLS: PRINT(S232, "JUST A MOMENT" 

23 DIM A*{10) ,B*<30) ,C*(40) ,V(12 
) 

24 HV=3: W=5:LV=3:N=i:S=l:E=l:W« 
l:u=l:D=l:Y=i:WA=l 

25 RB=l:FT=l:SW=l:DA=l:RU=5:DR=l 
:D3=l:D4=i:ST=l 

26 F0RX=1T010:READA*<X) :PLAY"L20 

o;d":nextx 

27 f0rx=1t030:readb*(x> :play"l20 
0;C":NEXT 

28 FORX= 1 T040 : READC* ( X > : PLAY " L20 
0;F":NEXTX:CLS 

29 G0T0304 

30 PRINT; " y////////////////////////////////////^^^^ 
y.y.y.'/.y.y.v.y. " : play " l i so ; fp i of " : i nput 

"WHAT DO YOU WANT TO DO 
";D* 

31 IF DI=1 AND WA=1 AND HV=1 AND 
W=l THEN TJ=TIMER: IF TJ-IOOO > 
TI THEN 281 

32 IFD*="VIEW"THEN304 

33 IFD*="HELP"THEN50 

34 IF Y=9 THEN WJ=WJ+1:IF WJ>15- 
<Q1+1) THEN324 

35 IFD*="N"THEN287 

36 IFD«="S"THEN287 

37 IFD*="E"THEN287 

38 IFD*="W"THEN287 

39 IFD*="U"THEN287 

40 IFD*="D"THEN287 

41 IFD«="DIVE"THEN45 

42 IFD*="LIST"THEN52 

43 play"L15o;g;pio;g": input" ";e« 

44 G*=LEFT*(E*,4) 

45 F0RA=1T030 

46 F*=LEFT* < D* , 4 ) : I F F*=B* < A ) TH 
EN49 

47 NEXTA 

48 PR I NT ;" I CANNOT " ; D* : PLAY " L20 
O ; DP 1 OCP 1 0DP6 " : G0T030 

49 ON A GOTO 67,104,107,109,111, 
113, 122, 125, 128, 136, 138, 141, 168, 
176, ISO, 187, 190,219,221,226,232, 
240, 243, 249, 260, 268, 270, 275, 277, 



283 

50 'START HELP SECTION 

51 PRINT; "HELP" 

52 'LIST 

53 PRINT; "I AM CARRYING" 

54 IF SW=1 THENPRINT;"A SWORD" 

55 IF DA=1 THENPRINT;"A DAGGER" 

56 IF RB=1 THENPRINT; "THE MAGIC 
RUBY" 

57 IF 0C=1 THENPRINT "THE OCTAGON 
OF GOLD" 

58 IF HE=1 THENPRINT "THE HEXAGON 
OF GLASS" 

59 IF NE=1 THENPRINT "THE PENT AGO 
N NECKLACE" 

60 IF LA=1 THENPRINT "THE LANCE" 

61 IF KE=1 THENPRINT "THE KEY OF 
GOLD 

62 IF RI=1 THENPRINT"THE INVISIB 
ILITY RING" 

63 IF SK=1 THENPRINT "THE SACK OF 
MARBLES" 

64 IF FT=1 THENPRINT "FLINT AND T 
INDER" 

65 G0T030:'END OF LIST 

66 PRINT; "SORRY! i -NO HELP FOR YO 
U N0W":G0T030: 'END HELP SECTION 

67 'LOOK 

68 IF LV=1 AND VV=1 AND HV=1 AND 
WA=0 AND D1=0 AND SL=0 THEN 69 

ELSE 72 

69 IFG*=C*<9) THEN PRINT; "IT'S J 
UST A SLIPPERY, FOUL SMELL-ING,GR 
EENISH SLIME":G0T030 

70 IFG*=C*(10) THEN PRINT; "THERE 
APPEARS TO EE AN OUTLINE OF WH 

AT MAY BE A DOOR UNDER THE SLIME 
" : G0T030 

71 IF6*=C*(11) THENPRINT; "THERE' 
S TOO MUCH SLIME COVERING IT TO 
TELL MUCH":G0T030 

72 IF LV=1 AND VV=1 AND HV=1 AND 
WA=0 AND D1=0 AND SL=1 THEN 73E 

LSE76 

73 IF Gf=C*<ll) THENPRINT; "IT'S 
A DOOR WITH A SMALL RING.":G0T03 

O 

74 IFG*=C*(10) THENPRINT; "THE OU 
TLINE IS MORE DEF INATE" : 6QT030 

75 IFG*=C*(12) THENPRINT; " IT'S J 
UST A RING ABOUT 3 INCHES ACROSS 
" : G0T030 

76 IFG*=C«<14> AND VV=4 AND HV=1 
AND LV=4 THENPRINT "THE STAIRS T 

HAT ARE THERE ARE COVERED WITH 
DUST":GOT030 

77 IF LV=2 AND HV=3 AND VV=3 THE 
N78ELSE84 

78 IFG*=C*<16) THENPRINT"! SEE N 
OTHING MORE THAN I HAVE ALREADY 
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TOLD". -607030 

79 IF6*=C*(17) THENPRINT"THEY AR 
E COVERED WITH MANY LINESAND SHA 
PES. ":G0T030 

80 IFS*=C*<1S) AND DW=0 THENPRIN 
T"JUST DRAWERS-THEY ARE CLOSED": 
G0T030 

81 IFG*=C«(18) THENPRINT"IT CONT 
AINS A RING. ":eOT030 

82 IFG«=C*(&) AND DW=1 THENPRINT 
"FROM WHAT THE PICTURES ENGRAVED 

ON IT SHOW, I THINK THE WEARER O 
FIT IS NOT ABLE TO BE SEEN, BUT 

IT ALSO COULD MEAN THAT IF IT I 
SPUT ON, THE WEARER IS KILLED. ON 
ETHING FOR SURE- IT ONLY WORKS ON 
ETIME":G0T030 

83 IFG*=C*(19) OR G*=C*(20) THEN 
PR I NT "ALL I CAN SAY IS THERE ARE 

MANY OF THEM AND I WOULD HAVE N 

0 WAY OF FIGURING OUT WHAT MAY B 
E IN ANY SINGLE ONE OF THEM.":G 
0T03O 

84 IF LV=4 AND VV=3 AND HV=3 THE 
N85 ELSE87 

85 IFG*=C*(23) AND ST=1 THENPRIN 
T"JUST A STATUE MADE OF QUARTZ": 
G0T030 

86 IF G*=C*(23> THENPRINT; "I SEE 
A KEY- IT MUST HAVE BEEN UNDER 
THE STATUE ":G0T030 

87 IF G*=C*(24) AND ST=0 THENPRI 
NT" IT IS MADE OF GOLD. THE HANDLE 

ISSHAPED AS A CLOVER LEAF AND T 
HE OTHER END IS FORMED INTO THE 
SHAPE OF A CROSS. ":G0T030 

88 IFG*=C*(26) AND LV=4 AND VV=3 
AND HV=5 THEN PR I NT "ONE PLANK S 

EEMS TO BE LOOSE" : G0T030 

89 IF LV=5 AND HV=3 AND VV=1 AND 
G*=C«<31) THENPRI NT "THERE ARE T 

HREE HOLES IN THE BLOCK.": GOT 
030 

90 IF G*=C*(32> AND LV=3 AND VV= 
4 AND HV=2 THEN91ELSE94 

91 IF CH=0 THENPRINT" IT'S JUST A 
SMALL CHEST . " : G0T030 

92 IF CH=1 AND HE=0 THENPRI NT "TH 
ERE IS A HEXAGON OF GLASS IN TH 
E CHEST. ":G0T030 

93 IF CH=1 AND HE=1 THENPRI NT "TH 
E CHEST IS EMPTY" :G0T030 

94 IF G*=C*(35) AND LA=1 THENPRI 
NT" IT IS MADE OF A WOODEN SHAFT 

ABOUT TWO ARM-SPANS LONG WITH 
A SHARP METAL POINT. ": G0T030 

95 IF G*=C*(36) AND LV=5 AND VV= 

1 AND HV=3 THENPRI NT "THERE ARE T 
HREE HOLES-HEXAGON, OCTAGON AND 

PENTAGON IN SHAPE .": 60T030 



96 IF LV=5 AND HV=3 AND VV»2 AND 
6»=C*(37> THENPRI NT "THE BODY OF 
BLANDOR LIES UPON THE ALTAR. Y 

OUR QUEST IS FINISHED": PRINT: PRI 
NT "CONGRATULATIONS! ! ":F0RX-1T050 
00: NEXT: CLS: END 

97 IF G*=C*<25) AND LV=4 AND HV» 

4 AND VV=3 THEN PRINT" IT IS SOLI 
D METAL-THE SURFACE ISFEATURELES 

5 EXCEPT FOR A SMALL CROSS-SHAP 
ED HOLE IN THE CENTER. ": G0T030 

98 IF Y=6 AND G*=C*(3S) THENPRIN 
T"THEY ARE ALL SHARP-EXCEPT DNE- 

THAT PARTICULAR SPIKE IS BLUNT 
. " : 60T030 

99 IF G*=C*(40) AND SK=1 THENPRI 
NT "JUST A WORN, BROWN LEATHER SAC 
K WITH A DRAW-STRING TIE.":GOTO 

30 

100 IF LV-3 AND E«="MOAT" THENPR 
I NT "THE CROCODILES LOOK VERY HUN 
GRY. ":G0T030 

101 IF Y=3 AND G»=C»(7) THENPRIN 
T"I DON'T REALLY WANT T0-":G0T03 

0 

102 IF E*=" GOBLINS" THENPR I NT "EA 
CH ONE HAS A SWORD IN ONE HANDAN 
D THE OTHER HAND IS EXTENDED OU 
T-PALM UP.":G0T030 

103 PRINT; "I DON'T SEE ANYTHING 
SPECIAL":G0T030 

104 'SLAY 

105 IF E*=" DRAGON" THENPRINT" YOU 
MUST BE KIDDING! ":60T030 

106 PR I NT "I CAN'T":G0T030 

107 'JUMP 

108 PRINT; "I CAN'T JUMP OVER THA 
T ! " : G0T030 

109 'LISTEN 

110 PRINT; "I DON'T HEAR ANYTHING 
OUT OF THE0RDINARY":G0T030 

111 ' SAY 

112 PRINT; "I SAID ' ";e»; "' ":PRIN 
T ; " BUT NOTH I NG HAPPENED " : G0T030 

113 'RUB 

114 IF RU<1 THEN PRINT; "IT IS PO 
WERLESS-YOU HAVE USED ALL FIVE 

CHARGES ":G0T030 

115 IF LV=1 AND Y=3 THEN116ELSE1 
18 

116 IF G*=C*<5> THEN PRINT; "THE 
RUBY IS CHANGING COLORS AND GIVI 
NG OFF A HUMMING SOUND. THE SCOR 
PIANS ARE CHANGING COLORS ALON 
G WITH THE GEM. " 

117 PRINT; "SUDDENLY AS THEY CAME 
THEY HAVE TURNED INTO HARMLESS 

ANTS AND SCURRIED OFF INTO THE 
CRACKS IN THE WALLS. ": Y=l : B3=l : 
RU=RU-l:G0T0304 
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118 IF Y=4 AND G*=C*<5) THENPRIN 
T"THE RUBY IS HUMMING AND CHANG I 
N6C0LQRS- " : FORX = 1 TO 1 000 : NE X T : PR I 
NT "THE FLAMES HAVE GONE ! " : Y=l : B4 
= 1 : RU=RU- 1 : 60T0304 

119 IFY=7 AND G*=C*(5) THENPRINT 
"THE RUBY IS GIVING OFF A HUMING 

SOUND- " : FOR X = 1 TO 1 000 : NE X T : PR I NT 
"THERE, I CAN MOVE AGAIN. ": Y=l : B7 
=1 : RU=RU-1 : G0T0304 

120 IF G*=C*<5) THEN RU=RU-1 

121 PRINT; "I TRIED - BUT I'M AFR 
AID N0THIN6WAS ACCOMPLISHED BY I 
T":G0T030 

122 'TURN 

123 IF G*=C*(30) AND MI=0 AND LV 
=3 AND VV=3 AND HV=4 THENPRINT" I 
T'S TURNING-": PR I NT "THE WALL NEX 
T TO THE MIRROR IS OPENING. ":T= 
0:0=5:G0T0447 

1 24 PR I NT ; " NOTH I NG HAPPENED " : GOT 
030 

125 'LIFT 

126 IF G*=C*(27) AND LV=4 AND VV 
=3 AND HV=5 AND 0C=0 THENPRINT"T 
HERE IS AN OCTAGON SHAPED PIECED 
F GOLD UNDER THE PLANK. ": G0T030 

127 PRINT; " CAN ' T " : G0T030 

128 'CUT 

129 PLAY"L200;DDA": INPUT "WITH WH 
AT";H* 



130 IF H*=" SWORD" OR H*=" DAGGER" 
THEN 131 ELSE PRINT; "NOTHING HA 

PPENED":G0T030 

131 IF LV=1 AND Y=2 AND G«=C* < 1 ) 
THEN 133ELSE 132 

132 IF LV=1 AND Y=2 AND G*=C*<2> 
THEN 133ELSE 134 

133 PRINT; "IT'S NOT WORKING-THE 
";H*:PRINT; "IS NOW CAUGHT IN THE 

WEB":G0T03O 

134 ' 

135 PR I NT "NOTHING HAPPENED" : GOTO 

30 

136 'STAB 

137 PRINT; "I STABBED THE ";E*:PR 
I NT ; " BUT NOTH I NG HAPPENED " : G0T03 

O 

138 'CLIMB 

139 IF Y=5 AND G*=C*<39) THENPRI 
NT "THE BARS MUST STAY IN PLACE A 
S LONG AS THERE IS WEIGHT UPON 
THEFLOOR! THE BARS HAVE GONE BAC 
K . " : B5== 1 : Y= 1 : G0T0304 

140 PRINT; "I CAN'T CLIMB IT": GOT 
030 

141 'GET 

142 IF VV=1 AND HV=1 AND LV=1 AN 
D WA=1 THEN PRINT; "I CAN'T": GOTO 

30 

143 W1=VV*HV*LV 

144 IF 6*=C*<3) AND V1=W1 AND SW 
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=3 THEN PRINT; "I'VE GOT IT":SW=1 
: G0T03O 

145 IF G*=C*<4) AND V2=W1 AND DA 
=3 THEN PRINT; "I'VE GOT IT":DA=1 
: 60T030 

146 IF G*=C*(5) AND V3=W1 AND RB 
=3 THEN PRINT; "I'VE GOT IT":RB=1 
: G0T030 

147 IF G*=C*<12) AND V4=W1 AND F 
T=3 THEN PRINT; "I'VE GOT IT":FT= 
1 : 60T030 

148 IF G*=C*(6) AND V5=W1 AND RI 
=3 THEN PRINT; "I'VE GOT IT":RI=1 
: 60T030 

149 IF 6*=C*( 13) AND V6=W1 AND N 
E=3 THEN PRINT; "I'VE GOT IT":NE= 
1 : G0T030 

150 IF 6*=C*(40) AND V7=W1 AND S 
K=3 THENPRINT"I' VE GOT IT":SK=1: 
G0T030 

151 IF G*=C*(35) AND V8=W1 AND L 
A=3 THENPRINT"!' VE GOT IT":LA=1: 

G0T030 

152 IF G*=C*(33) AND V9=W1 AND H 
E=3 THENPRINT"!' VE GOT IT":HE=1: 
60TQ30 

153 IF G*=C*(21) AND V10=W1 AND 
NE=3 THENPRINT" I'VE GOT IT":NE=1 
: G0T030 

154 IF 6*=C*<24) AND V11=W1 AND 
KE=3 THENPRINT" I'VE GOT IT":KE=1 
: G0T030 

155 IF G*=C*(28) AND V12=W1 AND 
0C=3 THENPRINT" I'VE GOT IT":0C=1 
: GOT030 

156 IFG*=C*<15) AND VV=4 AND HV= 
1 AND LV=4 THENPRINT"!' VE GOT A 
HANDFULL OF DUST" : DU=1 : GOT030 

157 IF G*=C*<24) AND KE=0 AND LV 
=4 AND VV=3 AND HV=3 AND ST=0 TH 
ENPRINT"I'VE GOT THE KEY.":KE=1: 
GOT030 

158 IF G*=C$(22) AND ST=1 AND LV 
=4 AND VV=3 AND HV=3 THENPRINT"0 
W! SOMETHING PRICKED ME-":F0RX=1 
T01500: NEXT: CLS (0) : F0RX=1T0500: N 
EXT:CLS:END 

159 IF G*=C*(28> AND 0C=1 THENPR 
I NT " I ' VE ALREADY GOT IT.": G0TO30 

160 IF G*=C*<2a) AND LV=4 AND VV 
=3 AND HV=5 THENPRINT"!' VE GOT T 
HE OCTAGON . " : 0C= 1 : GOT030 

161 IFG*=C*(6) AND LV=2 AND VV=3 
AND HV=3 AND DW=1 THENPRINT"! P 

UT THE RING ON MY FINGER. I GUE 
SS THAT MEANS I'M INVISIBLE- BUT 
FOR HOW L0NG?":RI=1:G0T030 

162 IF G*=C*(35) AND LV=3 AND VV 
=3 AND HV=2 AND LA=0 THENPRINT"! 
'VE GOT THE LANCE" : LA=1 : G0T030 




163 IF G*=C*(33) AND HE=0 AND CH 
=1 AND LV=3 AND HV=2 AND VV=4 TH 
ENPRINT"I'VE GOT THE HEXAGON OF 
GLASS. " : HE=1 : G0T030 

164 IF LV=2 AND VV=5 AND HV=5 AN 
D G*=C*(40> THEN 165ELSE167 

165 IF SK=1 THENPRINT"!' VE ALREA 
DY GOT IT":G0T030 

166 IF SK=0 THENPRINT"!' VE GOT T 
HE SACK":SK=l:G0T030 

167 PRINT;"! CAN'T GET THE ";E*: 
G0T030 

168 'UNLOCK 

169 PRINT; "UNLOCK THE ";E*:L!NEI 
NPUT"WITH WHAT? " ; M* 

170 IF G*=C*<25> AND LV=4 AND HV 
=4 AND VV=3 THEN171ELSE174 

171 IF D3=0 THENPRINT" IT'S ALREA 
DY OPEN. ":G0T030 

172 IF M*="KEY" AND KE=0 THENPR! 
NT"! DON'T HAVE THE KEY.":G0T030 

173 IF M*="KEY" AND KE=1 THENPR! 
NT" IT WORKED! THE DOOR SWUNG OPE 
N. ":D3=0:T=0:D=10:G0T0447 

174 ' 

175 PRINT; "THE ";E*;" WON'T UNLO 
CK": PRINT; "WITH THE ";M*:G0T030 

176 'STAND 

177 IF G*=C*<21) AND LV=2 AND VV 
=5 AND HV=2 AND NE=1 THENPR I NT "E 
VERYTHING IS FUZZY-" : F0RX=1T0150 
O: NEXTX: LV=4: HV=1 : VV=2: G0T0304 

178 IF G*=C*<21) AND LV=4 AND HV 
=1 AND VV=2 AND NE=1 THENPR I NT "E 
VERYTHING IS FUZZY-" : F0RX=1T0150 
0 : NEX T : L V=2 : HV=2 : VV=5 : G0T0304 

179 PRINT"! CAN'T":G0T030 

180 'PULL 

181 IF DI=1 AND G*=C*<8) THEN PR 
INT; "IT CAME LOOSE FROM THE BOTT 
OM. THE WATER IS NOW SWIRLING A 
ROUNDAND AROUND! IT'S ALL GOING 
OUT OF A SORT OF DRAIN IN THE F 
LOOP. THERE! IT'S ALL GDNE-I'M ON 

THE FLOOR OF THE PIT. " 

182 IF D!=l AND G*=C*<S) THEN PR 
INT; "I SEEM TO BE STANDING ON A 
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PILE OF RUBBLE. IT'S TOO DARK TO 
TELLWHAT IT IS, BUT FROM THE SME 
LL I DON'T CARE TO KNOW" : DI=0: WA 
=0: T=0: 0=0: G0T0447 

183 IF VV=1 AND HV=1 AND LV=1 AN 
D WA=0 THEN ISAELSE 185 

184 IF D1=0 AND B«=C*(6) THEN PR 
INT; "IT'S VERY HEAVY AND THE HIN 
GES ARE RUSTED, BUT I WAS ABLE T 
0 GET IT OPEN ENOUGH TO GET OUT." 
: D 1 = 1 : T=0 : 0=2 : G0T0447 

185 ' 

186 PRINT; "I CAN'T PULL IT":GOTO 

30 

187 'PUSH 

188 IF Y=6 AND 6*=C*<3S) THENPRI 
NT"THE WALL IS MOVING BACK! AND 
THEDOORWAYS HAVE RE - APPEARED. ": B 
6=1: Y=l:GOT0304 

189 PRINT; "I CAN'T PUSH IT" 
30 
190 
191 
T 
E 



' DROP 

IF G*=C*(5) 
DROP THE RUBY- 
I MAY NEED IT. 



THENPRI NT 
HERMAN 
" : GOT030 
AND SW=1 



GOTO 



'I WON' 
TOLD M 



THEN SW 



192 IF G*=C*(3) 
=2:G0T0205 

193 IF G*=C*(4) 
=2:G0T0205 

194 IF G*=C*(5) 
=2:G0T0205 

195 IF G*=C*(6) 
=2:G0TD205 

196 IF G*=^C*(12) 
T=2:G0T0205 

197 IF G*=C*(13> 
E=2:60T0205 

198 IF G*=C*(40) 
K=2:G0T0205 

199 IF G*=C*(35) 
A=2:G0T0205 

200 IF G*=C*(33) 
E=2:G0T0205 

201 IF G*=C*(21) 
E=2:G0T0205 

202 IF G*=C*(24) 
E=2:G0T0205 

203 IF G*=C*(28) 
C=2:G0T0205 

204 PRINT; "I DON'T HAVE IT": GOTO 

30 

205 PRINT; "I DROPPED IT- I HOPE Y 
OU REMEMBERWHERE IT IS I DROPPED 

IT. THE FLOORS ARE IN SHA 

DOW AND 1 MAY NOT BE ABLE TO SE 
E IT IF I COME BACK LOOKING FOR 

IT. " 

206 IF SW=2 THEN V1=VV*HV*LV: SW= 
3: G0T030 

207 IF DA=2 THEN V2==VV*HV»LV: DA= 



AND DA=1 THEN DA 



AND RB=1 THEN RB 



AND RI=1 THEN RI 



AND FT=1 THEN F 



AND NE=1 THEN N 



AND SK=1 THEN S 



AND LA=1 THEN L 



AND HE=1 THEN H 



AND NE=1 THEN N 



AND KE=1 THEN K 



AND 0C=1 THEN 0 



3:G0T030 

208 IF RB=2 THEN V3=VV*HV*LV: RB= 
3:G0T030 

209 IF FT=2 THEN V4=VV*HV*LV: FT= 
3:G0T030 

210 IF RI=2 THEN V5=VV*HV*LV: RI= 
3:G0T030 

211 IF NE=2 THEN V6=VV*HV*LV: NE= 
3:G0T030 

212 IF SK=2 THEN V7=VV*HV*LV: SK= 
3:G0T030 

213 IF LA=2 THEN V8=VV#HV»LV: LA= 
3:G0T030 

214 IF HE=2 THEN V9=VV*HV*LV: HE= 
3:G0T030 

215 IF NE=2 THEN V10=VV*HV*LV: NE 
=3:G0T030 

216 IF KE=2 THEN VI 1=VV»HV*LV: KE 
=3:G0T030 

217 IF 0C=2 THEN V12=VV*HV*LV: OC 
=3:G0T030 

218 print; "I HAVEN'T GOT IT":GOT 

030 

219 'CARRY 

220 PRINT; "I CAN'T CARRY THAT":G 
0T030 

221 'BRIBE 

222 RR*="" 

223 IF LV=5 AND Y=9 AND SK=1 AND 
LEFT* (E«, 5)=" GUARD" THEN INPUT" 

WITH WHAT";RR*:IF RR*=" MARBLES" 
THENPRI NT "THAT SATISFIED THEM.TH 
EY WENT BACK DOWN THE HALL ARG 
UING OVER WHICH ONE WOULD GET TH 
E BLUE T I GER-EYE . " : Y= 1 : B9= 1 : G 
0T0304 

224 IFRR*=""THEN INPUT"WITH WHAT 
" ; RR$ 

225 PRINT" I GUESS THEY DON'T WAN 
T THAT ! " : G0T030 

226 'BREAK 




48 



227 IF LV=1 AND Y=2 THEN 228ELSE 
230 

228 IF G*=C*(1> OR G*=C*(2) THEN 
227ELSE230 

229 PRINT; "IT'S MUCH TOO STRONG 
TO BREAK ":G0T030 

230 ' 

231 PRINT; "I TRIED TO BREAK THE 
";E*: PR I NT "BUT NOTHING HAPPENED. 
" : G0T030 

232 'HIT 

233 PRINT; "HIT THE " ; E*: LINEINPU 
T"WITH WHAT? "jJ* 

234 IF G*=C*<22> AND HV=3 AND W 
=3 AND LV=4 THEN 235ELSE238 

235 IF J*="DAGGER" OR J*="SWORD" 
THEN 236 ELSE 238 

236 IF ST=1 THENPRINT"THE STATUE 
SMASHED INTO MANY PIECES, A M 

ECHANISM WITH A NEEDLE ATT ACHED F 
ELL TO THE FLOOR. ": ST=0: GOT03O 

237 PR I NT "THE STATUE IS ALREADY 
SMASHED. ":G0T030 

238 ' 

239 PRINT; "I HIT THE ";E*: PRINT; 
"WITH THE "; J*: PRINT; "BUT IT DID 
N'T DO ANYTHING" :G0T030 

240 'DIG 

241 PRINT"DIG THE " ; E*: LINEINPUT 
"WITH WHAT? ";K* 

242 PRINT; "I TRIED TO DIG THE "; 
E*:PRINT; "WITH THE "; K*: PRINT; "B 
UT I WAS UNABLE TO DO IT":G0T030 

243 'BURN 

244 PLAY " L200 ; DDA " : I NPUT " W I TH WH 
AT"; I* 

245 IF I*= "FLINT AND TINDER" THEN 
246ELSE248 

246 IF LV=1 AND Y=2 THEN247ELSE2 
48 

247 IF G*=C*(1) OR G*=Ct(2) THEN 
PRINT;" IT ALL BURNED UP IN A F 

LASH i " : B2= 1 : Y= 1 : G0T0304 

248 PRINT"USING THE ";L*:PRINT;" 
THE ";E*;" WON'T BURN":G0T030 

249 'OPEN 

250 IF G*=C*<ia) AND LV=2 AND HV 
=3 AND VV=3 THEN I NPUT "WHICH DRA 
WER? TOP OR BOTTOM ";DW*:IFD 
W*= " BOTTOM "THENPR I NT "THERE IS A 
YELLOW GAS COMING OUTFROM THE DR 
AWER. I CAN'T SEE OR HEAR ANYTHI 
NG! ":F0RX=1T03000:NEXT:CLS(0) :fo 
RX=1T0500: NEXT: CLS: END 

251 IF DW*="TOP" THENPRINT; "IT'S 
OPEN" : DW=1 : DW*=" " : G0T030 

252 IF G*=C$(32) AND LV=3 AND HV 
=2 AND VV=4 THEN253ELSE258 

253 INPUT"WITH WHAT" ; ZX*: IFZX*=" 
LANCE " THEN254ELSE256 



254 IF LA=1 THENPRINT "JUST AS TH 
E TOP OF THE CHEST OPENED A L 
ARGE BLACK SPIDER CAMEOUT AND DI 
SAPPEARED INTO THE CLUTTER IN 

THE REAR OF THE ROOM. ": CH=1 : GOT 
030 

255 PRINT" I DON'T HAVE A LANCE": 
G0T030 

256 IF ZX*=" SWORD" OR ZX*="DAGGE 
R" OR ZX*="HAND" THENPRINT "A BLA 
CK SPIDER JUMPED FROM THE CHEST 

AND BIT ME. IT'S HARD TO BREAT 
HE" : F0RX=1T02000: NEXT: CLS (0> : FOR 
X= 1 T0500 : NEXT : CLS : END 

257 PRINT" IT WON'T 0PEN":G0T030 

258 IF SK=1 AND G*=C*(40) THENPR 
INT" IT CONTAINS ONLY A FEW WORTH 
LESSMARBLES. " : G0T030 

259 PRINT; "I CAN'T OPEN THE " ; E* 




: 60T030 

260 'PUT 

261 INPUT"WHERE"; XX* 

262 IF XX*="HOLE" AND HE=1 AND O 
C=l AND NE=1 THEN 266ELSE263 

263 IF XX*="HOLE" AND D4=l AND L 
V=5 AND VV=1 AND HV=3 THEN264ELS 
E267 

264 IF NE=1 OR 0C=1 OR HE=1 THEN 
265ELSE267 

265 IF G*=C*<33) OR G*=C*(21> OR 
G*=C*(2e) THENPRINT" IT FIT OK,B 

UT NOTHING HAPPENED" : G0T030 

266 IF G*=C*(33) OR G*=C*(21) OR 
G*=C*(28> THEN PRINT"! PUT ALL 

THREE IN THE CORRECT PLACES AND 
A SECTION OF WALL SLID OPEN. 

" : T=0: 0=8 : D4=0: G0T0447 

267 PRINT"! CAN' T" : G0T030 

268 'SMELL 

269 PRINT;"! JUST SMELL A(N) ";E 
*:60T030 

270 'SPRINKLE 

271 PRINT; "SPRINKLE THE ";E*:LIN 
E I NPUT "ON WHAT? " ; O* 

272 IF TS=0 AND DU=1 AND VV=4 AN 
D HV=1 AND LV=4 AND G*=C*(15) AN 
D 0*=" STAIRS" THEN PR I NT "AS THE 
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DUST HITS THE MISSING STAIRS 
IT SPARKLES-OUTLINING THEWHOLE S 
TAfRWAY.IN FACT NOW THE STAIRWA 
Y IS COMPLETELY VISABLE. " : T=l : 0= 
l:TS=l:G0T0447 

2VZ IF 0*=" STAIRS" AND DU==0 THEN 
PRINT" I DON'T HAVE ANY DUST.": BO 

T030 

274 PRINT;"! SPRINKLED THE ";E*: 
PRINT; "ON THE "; O*: PRINT; "NOTHIN 
G HAPPENED ":G0T030 

275 'KICK 

276 PRINT"OUCH! ! ":GOT030 

277 'DIVE 

278 IF LV>1THEN282 

279 IF WA=1 AND VV=1 AND HV=1 TH 
EN PRINT; "THE COLD WATER IS ABOU 
T 15 FEET DEEP. AT THE BOTTOM IS 

A LOT OF STUFF, BUT IT IS TOO DA 
RK TO SEE WHAT IT IS. I ONLY REC 
OGNIZE A PIECE OF CHAIN. PLEASE 

HURRY- I CAN'T HOLD MY BREATH T 
00 LONG! ":DI=1 

280 IF WA=1 AND VV=1 AND HV=1 TH 
EN TI=TIMER:G0T030 

281 IF WA=1 AND VV=1 AND HV=1 TH 
ENPRINT;"Y0U took too LONG- I COU 
LDN'T STAY DOWN ANY LONGER- I' 
M BACK ONTHE SURFACE. ": DI=0: GOTO 

30 

282 PR I NT ;" I CAN ' T " : G0T030 

283 'WIPE 

284 IF VV=1 AND WA=0 AND HV=1 AN 
D D1=0 AND LV=1 AND G*=C*(9) THE 
NPRINT;"IT'S NOT EXACTLY FUN BUT 

I'VE GOT MOST OF IT 0FF":SL=1 
: B0T030 

285 PR I NT ;" I CAN ' T " : G0T030 

286 PRINT; "I MUST HAVE MIS-UNDER 
STOOD — PLEASE RE-ENTER COMMA 
ND":G0T030: 'TRAP 

287 IFD*="N" AND N=l THEN VV=VV- 
1 

288 IFD*="S" AND S=l THEN VV=VV+ 
1 

289 IFVV>5THENVV=5:G0T0303 

290 I F V V< 1 THENVV= 1 : G0T0303 

291 IF D*="N" AND N=0 OR D*="S" 
AND S=0 THEN303 

292 IFD*="E" AND E=l THEN HV=HV+ 
1 

293 IFD*="W" AND W=l THEN HV=HV - 
1 

294 I FHV< 1 THENHV= 1 : GDT0303 

295 IFHV>5THENHV=5:G0T0303 

296 IF D*="E" AND E=0 OR D*="W" 
AND W=0 THEN303 

297 IFD*="U" AND U=l THEN LV=LV+ 
1 

298 IFD*="D" AND D=l THEN LV=LV- 



1 

299 I FL V< 1 THENL V= 1 : G0T0303 

300 I FL V >5THEI^ V=5 : G0T0303 

301 IF D*="U" AND U=0 OR D*="D" 
AND D=0 THEN303 

302 G0T0304 

303 PRINT; "I CAN'T MOVE IN THAT 
D I RECT I ON " : PLAY " L 1 0 ; AP 1 0 " : G0T030 

304 G0SUB305:0N LV GOTO 326,358, 
381,417,431 

305 'VARIABLE SCENERIO ROUTINE 

306 ON Y GOTO 307,314,316,317,31 
8,319,320,321,322 

307 Q6=0 

308 IFQ1=0THEN RETURN 

309 IFLV=1 AND D3<4 THEN RETURN 

310 Q4=RND<100-<Q1*10) > 

311 Q5=INT(100-(Q1*10.3) ) 

312 IF Q4<=Q5 THEN RETURN 

313 Q6=l 

314 'MAZE LEVEL VAR SUBROU 

315 IF LV=1 AND VV>1 AND B2=0 TH 
EN PRINT; "A WEB OF STICKY STRING 
-LIKE STRANDS FELL FROM THE 
CEILING OF THE CORRIDOR. I CAN 
'T MOVE VERY WELL-THE MORE I S 
TRUGGLE AGAINST THEM-THE TIGHT 
ER THEY BIND ME . " : T=0: 0=0: Y=2: 
G0T0447 

316 IF LV=1 AND VV>1 AND B3=OTHE 
N PRINT; "SUDDENLY THE AIR IS RES 
0UNDIN6 WITH CLICKING. LITERALLY 

COVERINGTHE FLOOR ARE THOUSANDS 
OF MAUVESCORP IONS. THEY ARE BLOC 
KING ALL ESCAPE AND ARE SLOWLY C 
LOB I NG IN.": T=0 : 0=0 : Y=3 : G0T0447 

317 IF LV=2 AND HA=1 AND B4=0 TH 
ENPRINT-'THERE ARE FLAMES ALL ARO 
UND ME! !A RING OF FIRE COMPLETEL 
Y SUR- ROUNDS ME i " : T=0: 0=0: Y=4: 
G0T0447 

318 IF LV=4 AND HA=1 AND B5=0 TH 
ENPRINT"IRON BARS HAVE COME DOWN 

FROM THE CEILING!! ALL THE EX 
ITS ARE BLOCKED. ":T=0: 0=0: Y=5: GO 
TD447 

319 IF LV=3 AND HA=1 AND B6=0 TH 
ENPR I NT "SUDDENLY ALL THE EXITS A 
RE BLOCKED BY SOLID WALLS. S 
PIKES NOW EXTEND FROM THE EAST 

WALL AND THE WEST WALL IS MOV 
INB IN. HURRY, BEFORE I'M CRUSHED 
! " : T=0: 0=0: Y=6: G0T0447 

320 IF LV=4 AND HA=1 AND B7=0 TH 
ENPR I NT "I CAN'T MOVE MY LEGS! TH 
EY SEEM TO BE FROZEN TO THE FLOO 
R . " : T=0 : 0=0 : Y=7 : G0T0447 

321 IF BS=0 AND LV=5 AND HA=1 TH 
ENPR I NT "THE FLOOR IS DROPPING!": 
FORX=1T01000: NEXT: PRINT"! 'M SLID 
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IN6 DOWN A CHUTE! "':FORX = lTOiOOO: 
NEXT: CLS (O) : F0RX=1T0500: NEXT: LV= 
1 : HV=3 : VV=4 : B8= l : Y= l : CLS : LA=o : GO 
T0304 

322 IFB9=0 AND LV=5 AND HA=1 THE 
NPRINT"THERE IS A GOBLIN DRESSED 

IN GUARD'S ATTIRE BLOCKING T 
HE WAY. HE HAS A SWORD AT LEAST T 
WICE THE LENGTH OF MINE AND FR 
OM THE LOOKS OF HIS BUILD HE ISN 
'T A PUSHOVER" :T=0: 0=0: Y=9 

323 IF B9=0 AND LV=5 AND HA=1 TH 
EN FOR X = 1 TO 1 000 : NE X T : PR I NT : PR I NT 
"OH OH! ": PR INT "ANOTHER ONE IS BE 
HIND ME! ":G0T0447 

324 IFY=9 AND WJ>15-<Q1+1) THENP 
R I NT "THEY ARE BOTH ATTACKING-" : F 
0RX=1TD1500: NEXT: CLS <0) :F0RX=1T0 
500: NEXT: CLS: END 

325 HA=0: RETURN 

326 'PIT AND MAZE 

327 IF HV=1 AND VV=1 AND WA=1 AN 
D DI=1 THEN PRINT; "I'M IN THE BO 
TTOM OF THE PIT, UNDER WATER, W 
AITING FOR YOU TO TELL ME WHAT 
TO DO ! ! ! " : G0T030 

328 IF HV=1 AND VV=1 AND D1=0 AN 
D WA=1 THENPRINT; "I'M TREADING W 
ATER IN A PIT. IT 

FEET ACROSS IN 
.THE WALLS ARE 

SLIPPERY GREEN 
MENTION WHAT THE 
E. " : T=0: 0=0: G0T0447 

329 IF HV=1 AND VV=1 AND WA=0 AN 
D Dl=l THENPRINT; "I'M AT THE BOT 



IS ABOUT EIGHT 
EACH DIRECTION 
COVERED WITH A 
SLIME. 1 WON'T 
AIR SMELLS LIK 



TOM OF THE PIT. LAYING IN A HE 
AP ON THE FLOOR ARE ENOUGH ASS 
ORTED BONES AND RUSTED EQUIPME 
NT TO MAKE UP PER-HAPS TEN TO TW 
ENT Y KN I GHTS . " : T=0 : 0=2 : G0T0447 

330 IF HV=1 AND VV=1 AND WA=0 AN 
D D1=0 THEN PRINT; "THE WATER HAS 

ALL GONE AND I AM STANDING ON A 
PILE OF JUNK. IT ISTOO DARK TO R 
EALLY TELL WHAT IS IN THE PILE-N 
OT THAT I REALLY WANT TO KNOW 
FROM THE SMELL. ":T=0: 0=0: G0T0447 

331 IF HV=4 AND VV=1 THENPRINT" I 
AM AT THE BOTTOM OF A FLIGHT 0 

F STEPS . " : 0=3 : T= 1 : G0T0447 

332 Q3=Q3+1 

333 PRINT; "I AM IN A 
MAZE OF CORRIDORS" 



FEATURELESS 



334 IF HV=1 
0:G0T0447 

335 IF HV=1 
0:60T0447 

336 IF HV=1 
0:G0T0447 

337 IF HV=1 
0:G0T0447 

338 IF HV=2 
0:60T0447 

339 IF HV=2 
0:G0T0447 

340 IF HV=2 
=0:GOT0447 

341 IF HV=2 
=0:G0T0447 

342 IF HV=2 
=0:G0T0447 



AND VV=2 THEN 0=5 :T= 



AND VV=3 THEN 0=6: T= 



AND VV=4 THEN 0=8 :T= 



AND VV=5 THEN 0=6 :T= 



AND VV=1 THEN 0=8: T= 



AND VV=2 THEN 0=5: T= 



AND VV=3 THEN 0=12: T 



AND VV=4 THEN Q=13:T 



AND VV=5 THEN O=10:T 
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343 IF HV=3 


AND 


VV= 


1 


THEN 


0= 


9: T= 


0:G0T0447 














344 IF HV=3 


AND 


VV= 


2 


THEN 


0= 


6:T= 


0:G0T0447 














345 IF HV=3 


AND 


VV= 


3 


THEN 


0= 


8:T= 


0:G0T0447 














346 IF HV=3 


AND 


W= 


4 


THEN 


0= 


7: T= 


0:60T0447 














347 IF HV=3 


AND 


VV= 


5 


THEN 


0= 


10: T 


=0: 60T0447 














348 IF HV=4 


AND 


VV== 


5 


THEN 


0= 


13:T 


=0: GOT 0447 














349 IF HV=4 


AND 


VV= 


4 


THEN 


0= 


1 1 : T 


=0:6DT0447 














350 IF HV=4 


AND 


VV= 


3 


THEN 


0= 


12: T 


=0:60T0447 














351 IF HV=4 


AND 


VV= 


2 


THEN 


0= 


14:T 


=0:G0T0447 














352 IF HV=5 


AND 


W= 


1 


THEN 


0= 


9: T= 


0:60T0447 














353 IF HV=5 


AND 


VV= 


2 


THEN 


0= 


12:T 


=0:G0T0447 














354 IF HV=5 


AND 


VV= 


3 


THEN 


0= 


5:T= 


0:60X0447 














355 IF HV=5 


AND 


VV= 


4 


THEN 


0= 


12:T 


=0:G0TD447 














356 IF HV=5 


AND 


VV= 


5 


THEN 


0= 


7:T= 



0:60T0447 

357 PRINT; "LEVEL 1 HV=";HV;"VV= 




"; VV:60T030 

358 'LEVEL 2 

359 IF VV=i AND HV=4 THENPRINT"I 
AM AT THE TOP OF A FLIGHT OF S 

TEPS" : T=2: 0=4 : G0T0447 

360 IF VV=1 AND HV=3 THENPRINT;A 
* (9) :0=a:T=0:HA=l:G0T0447 

361 IF VV=2 AND HV=3 THENPRINT;A 
*(9> : 0=^12: T=0:HA=l:60T0447 

362 IF VV=2 AND HV=2 THENPRINT;A 
*<9> •.T=0:O=10:HA=l:GOTO447 

363 IF VV=2 AND HV=1 THENPRINT"! 
'M IN A SMALL EMPTY ROOM. " : HA=1 : 



T=0:0=3:GOT0447 

364 IF VV=3 AND HV=3 THENPRINT;" 
THIS MUST BE HERMAN'S WORKSHOP! 
THE WALLS ARE LINED WITH SHELVES 
COVERED WITH VARIOUS BOTTLES AND 
VESSELS CONTAINING ALL MANNER OF 
COLORED AND SHAPED SUBSTANCES. A 
DESK IS SITTING IN THE CENTER, 

365 IF HV=3 AND VV=3 THENPRINT"L 
ITERALLY PILED WITH PAPERS. T 
HERE ARE WHAT APPEAR TO BE TWO D 
RAWERS ON THE FRONT OF THE DESK" 
:T=o:0=ll:GOT0447 

366 IF VV=3 AND HV=4 THENPRINT; A 
* (9) : T=o: 0=10: ha=i : G0T0447 

367 IF VV=3 AND HV=5 THENPRINT; A 
* ( 9 ) : T=0 : 0=9 : HA= 1 : G0T0447 

368 IF VV=4 AND HV=3 AND DR=1 TH 
ENPRINT"THERE IS A LARGE DRAGON 
BLOCKINGTHE HALLWAY. IT LOOKS LIK 
E A NOR-MAL GREEN, ILL-TEMPERED, W 
INGED, FIRE -BREATHING DRAGON. A 
PENTAGONSHAPED JEWEL IS HANGING 
AROUND IT'S NECK. ":T=0: 0=5: GOTO 
447 

369 IF VV=4 AND HV=3 THENPRINT; A 

* <9> : T=0: 0=5: G0T0447 

370 IF VV=4 AND HV=5 THENPRINT; A 

* < 9 > : T=0 : 0=5 : HA= 1 : 60T0447 

371 IF VV=5 AND HV=2 THENPRINT;" 
I'M IN AN EMPTY ROOM, INLAID IS 

A PENTAGON -SHAPED MOSIAC IN THE 
FLOOR . " : 0=3 : T=0 : G0T0447 

372 IF RI=0 AND VV=5 AND HV=3 AN 
D DR=1 THENPRINT"! TOLD YOU IT W 
AS A ILL-TEMPEREDFIRE-BREATHING 
DRAGON!! HE'S TURNING ME 

INTO A WELL-DONESNACK. ":F0RX=1T 
03000: NEXT: CLS (0) : F0RX=1T01000: N 
EXT: CLS: END 

373 IF RI=1 AND VV=5 AND HV=3 AN 
D DR=1 THEN374 ELSE 378 

374 PRINT" I AM IN FRONT OF THE D 
R AGON. THE RING MUST BE WORKING- I 
T DOESN^T SEEM TO NOTICE ME.": PR 
INT"VISIBLE DIRECTIONS TO MOVE A 
RE- -NORTH -SOUTH " : PR I NT " '/.•/.'/.'/.'/.'/.'/. 

7.y.7. 7.7."/. "/.'/. y.'/.y. 7. 7//. '/.-/. "/."/.y.7. "/.■/. " : play "lis 

O; FPl OF ": INPUT "WHAT DO YOU WANT 
TO DO ";P*: 

375 IF P*="N" THEN T=0: 0=5: VV=4 : 
HV=3: G0T0304 

376 IF P*="S" THENPRINT "I GOT BY 
IT! AS I WAS GOING BY IGRABBED 

THE NECKLACE OFF IT'S NECK.":D 
R=0 : NE= 1 : T=0 : 0=7 : VV=5 : HV=3 : G0T04 
47 T=0 : 0=7 : VV=5 : HV=3 : G0T0304 

377 PRINT" IT MUST HAVE SENSED SO 
METHIN6!! IT JUST FLASH-FRIED ME 
. ":F0RX=1T03000: NEXT: CLS (O) ;FORX 
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= 1 T0500 : NE X T : CLS : END 

378 IF VV=5 AND HV=3 THENPRINT;A 
*(9) :T=0:D=7:HA=l:G0T0447 

379 IF VV=5 AND HV=5 THENPRINT"T 
HE HALLWAY COMES TO A DEAD END.T 
HERE IS A SMALL SACK ON THE F 
LOOR. " : T=0: 0=1 : HA=1 : G0T0447 

380 PR I NT ; " LEVEL 2 HV= " ; HV ; " W= 
"; VV:G0T030 

331 'ENTRY LEVEL 

382 IF HV=3 AND VV=5 THEN PRINT" 
I AM ON THE DRAW-BRIDGE AT THE 
FRONT OF THE CASTLE. TO THE 
NORTH IS THE ENTRANCE-THE DOOR 
IS OPEN. TO THE EAST AND WEST IS 
A PATH LEADING AROUND THE MOAT. " 

383 IF HV=3 AND VV=5 THEN PRINT" 
TO THE SOUTH IS THE GROUP OF 
TOWNS-PEOPLE WHO CAME TO WATCH. 
IT WOULD BE UNTHINKABLE TO GO 
BACK-THEY ARE COUNTING ON ME.":T 
=0:0=13:G0T0447 

384 IF HV=3 AND VV=4 THEN PRINT" 
I'M IN THE GREAT ENTRY HALL. THE 
VAULTED CEILING IS LOST IN THE 
SHADOWS. THERE IS NO SIGN OF ANY- 
ONE BE I NG AROUND . " : T=0 : 0=5 : G0T04 
47 " : T=0 : HA= 1 : 0=5 : GOTO 1 5000 

385 IF HV=4 AND VV=4 THENPRINT"T 
HERE IS A CIRCULAR STAIRWAY L 
EADING UPWARDS. A SMALL OPENING I 
N THE WALL IS THE ONLY SOURCE 0 
F LIGHT, THE UPPER PART OF THE S 
TAIRWAY IS IN SHADOW" : T=l : 0=1 : GO 
T0447 

386 IF HV=3 AND VV=3 AND WA=1 TH 
EN PRINT; "THE FLOOR IS TILTING!! 

! I CAN'T MOVE FAST ENOUGH TO GE 
T BACK. ":LA=0:F0RX=1T01500:NEXTX 
-.FOR X = 1T030: PRINT; " I'M 
FALLING ! " : PRINT: F0RY=1T050: NEXT 

y:nextx:cls(0> 

387 IF HV=3 AND VV=3 AND WA=1 TH 
ENFORX-1 T0500: NEXTX : CLS: PRINT@23 
3, "SPLASH! 1??":FORX=1T01000:NEXT 
X : CLS : T=o : 0=0 : L v= i : HV= l : vv= l : WA= 

1 : GOT0304 

388 IF HV=3 AND VV=3 AND WA=0 TH 
EN PRINT"THE FLOOR IS TILTING!!! 

I CAN'T MOVE FAST ENOUGH TO GET 
BACK. " : LA=0: F0RX=1T01500: NEXTX: 
FORX=1T030: PRINT; " I'M F 

ALL I NG ! " : PR I NT : FOR Y= 1 T050 : NEX T Y : 
NEXTX: CLS (O) 

389 IF HV=3 AND VV=3 AND WA=0 TH 
ENFDRX- 1 T0500 : NEXTX : CLS : PR I NT@23 
7, "SPLAT! ! ":F0RX=1T01000: NEXTX :C 
LS:END 

390 IF HV=3 AND VV=2 THEN PRINT" 
I AM IN THE REAR ENTRANCE HALL": 




T=0: 0=15: HA=1 : G0T0447 

391 IF HV=4 AND VV=2 THEN PRINT; 
A* (9) : 0=9: T=0: HA=1 : G0T0447 

392 IF HV=4 AND VV=3 THEN PRINT" 
I MUST BE IN THE THRONE ROOM. AT 
THE REAR OF THIS LARGE ROOM IS A 
LARGE ORNATE THRONE, ON THE WALL 
BEHIND IT IS A TRIANGLE-SHAPED 
MIRROR. ON EITHER SIDE OF THE 
THRONE ARE PLAIN CHAIRS. LARGE 
TAPESTRIES DEPICTING STRANGE" 

393 IF HV=4 AND VV=3 AND MI=0 TH 
EN PRINT"BEINGS HANG IN TATTERS 
FROM THE WALLS. ":T=0: 0=1: G0T0447 

394 IF HV=4 AND VV=3 THENPRINT"B 
EINGS HANG IN TATTERS FROM THE W 
ALLS. THERE IS A DOOORWAY IN THE 
SOUTH WALL. ":T=0: 0=5: G0T0447 

395 IF HV=2 AND VV=2 THEN PRINT; 
A* (9) : 0=8: T=0: HA=1 : G0T0447 

396 IF HV=2 AND VV=3 AND D2=0 TH 
EN PRINT"THIS IS THE MAIN HALL. 
SEVERAL LARGE TABLES AND BENCHE 
S ARE IN THE CENTER. MOUNTED AN I 
MAL HEADSARE ON THE WALLS, ALONG 
WITH GOMEL ANCES. " :T=0-.Q=5;GQTQ44 
7 

397 IF HV=2 AND VV=3 THEN PRINT" 
THIS IS THE MAIN HALL. SEVERAL 
LARGE TABLES AND BENCHES ARE IN 
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THE CENTER. MOUNTED ANIMAL HEADS 
ARE ON THE WALLS, AT THE REAR IS 
IS AN OPEN DOOR. ":T=0: 0=5: G0T044 
7 

398 IF HV=2 AND VV=4 AND CH=0 TH 
EN PR I NT "THE ROOM IS FULL OF CHE 
STS. ALL LOOK AS IF THEY HAVE BE 
EN BROKENOPEN EXCEPT ONE. IT SIT 
S ON A SMALL PEDESTAL IN THE C 
ENTER OF THE ROOM. ": T=0: 0=1 : GOTO 
447 

399 IF HV=2 AND VV=4 THENPRINT"A 
LL THE CHESTS IN THE ROOM ARE 0 
PEN, INCLUDING THE ONE ON THE P 
EDESTAL. ":T=0:0=l:G0T0447 

400 IF HV=3 AND VV=1 THEN PRINT" 
I AM ON A FOOT BRIDGE LEADING TO 
A REAR ENTRANCE TO THE CASTLE.": 
T=0 : 0= 1 4 : G0T0447 

401 PRINT; "I AM ON A PATH OUTBID 
E THE CAS- TLE WALLS. THERE IS A 
SLIME COV- ERED MOAT BETWEEN THE 

CASTLE ANDTHE PATH. " 

402 IF HV=1 AND VV=1 THEN O=8:G0 
T0447 

403 IF HV=1 AND VV=2 THEN 0=5:00 
T0447 

404 IF HV=1 AND VV=3 THEN 0=5:G0 
T0447 

405 IF HV=1 AND VV=4 THEN 0=5: GO 
T0447 

406 IF HV=1 AND VV=5 THEN 0=6: GO 
T0447 

407 IF HV==2 AND VV=5 THEN 0=10: G 
QT0447 

408 IF HV=4 AND VV=5 THEN 0=10: G 
0T0447 

409 IF HV=^5 AND VV=5 THEN 0=7: GO 
T0447 

410 IF HV=5 AND VV=4 THEN 0=5: GO 
T0447 

411 IF HV=5 AND VV=3 THEN 0=5: GO 
T0447 

412 IF HV=5 AND VV=2 THEN 0=5: GO 
TD447 

413 IF HV=5 AND VV=1 THEN 0=9: GO 
T0447 

414 IF HV=4 AND VV=1 THEN 0=10: G 
0T0447 

415 IF HV=2 AND VV=1 THEN 0=10: G 
0T0447 

416 PRINT; "LEVEL 3 HV=";HV;"VV= 
" ; VV : PR INT;" #############ERROR## 
########## " : G0T030 

417 'LEVEL 4 

413 IF VV=2 AND HV=1 THENPRINT"! 
'M IN AN EMPTY ROOM, INLAID IS A 
PENTAGON-SHAPED MOSIAC IN THE F 
LOOR. " : T=0: 0=2: G0T0447 
419 IF VV=3 AND HV=1 THENPRINT; A 



*<9) :T=0:0=ll:HA=l:G0T0447 

420 IF VV=3 AND HV=2 THENPRINT; A 
*(9) :0=10:T=0:HA=l:G0T0447 

421 IF VV=3 AND HV=3 AND ST=1 TH 
ENPRINT; A* (9) :PRINT"THERE IS A N 
I CHE WITH A STATUE OF A GARGOYL 
E IN THE NORTH WALL. ": T=0: 0=14: H 
A=l:G0T0447 

422 IF VV=3 AND HV=3 THENPRINT; A 
* (9) :PRINT"THERE IS A NICHE IN T 
HE NORTH WALL. ":T=0: 0=14: HA=l: 
G0T0447 

423 IF VV=3 AND HV=4 AND D3=l TH 
ENPRINT; A* (9) :PRINT; "THERE IS A 
MASSIVE DOOR IN THE EAST WALL." 
:T=0:0=4:G0T0447 

424 IF VV=3 AND HV=4 THENPRINT; A 
*(9) :T=0:0=10:G0T0447 

425 IF VV=3 AND HV=5 THENPRINT"T 
HIS TRULY MUST BE BLANDOR'S OWNR 
OOM.THE WALLS ARE COVERED WITH R 
ICH TAPESTRIES, THE FLOOR IS OF W 
OOD-HIGHLY POLISHED, AND THE F 
URNITURE IS GILTED IN GOLD AND C 
OVERED WITH VARIOUS JEWELS. ":T=0 
:0=4:60T0447 

426 IF TS=0 AND VV=4 AND HV=1 TH 
ENPRINT"I'M AT THE BOTTOM OF A F 
L I GHT OFST A I RS , WELL , ALMOST . THERE 

ARE 
OTTOM, 
ABOUT 
PS AT 
. ":T=0: 

427 IF 



ONLY FIVE STEPS AT THE B 
THEN AN EMPTY SECTION OF 
THIRTY FEET, AND FIVE STE 



THE TOP NEAR 
0=1 :G0T0447 
VV=4 AND HV=1 



THE CEILING 



AND T5=l 



TH 

ENPRINT"! AM AT THE BOTTOM OF A 
FLIGHT OF STEPS. ":T=l: 0=1: G0T04 
47 
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428 IF W=4 AND HV=3 THENPRINTjA 

* < 9 ) : 0=6 : T=0 : HA= l : G0T0447 

429 IF W=4 AND HV=4 THENPRINT"I 
AM AT THE HEAD OF A FLIGHT OF S 

TEPS " : T=2 : 0=4 : G0T0447 

430 PRINT; "LEVEL 4 HV="5HV5"W= 
"; W:B0T030 

431 'LEVEL 5 

432 IF VV=4 AND HV=1 THENPRINT"I 
AM AT THE TOP OF A FLIGHT OF S 

TEPS" : T=2: 0=2: G0T0447 

433 IF VV=5 AND HV=1 THENPRINTJA 
* ( 9 ) : T=0 : 0=6 : HA= 1 : G0T0447 

434 IF VV=5 AND HV=2 THENPRINT;A 
*(9> :T=0:0=10:HA=l:G0T0447 

435 IF VV=5 AND HV=3 THENPRINT;A 
* ( 9 > : T=0 : 0=7 : HA= 1 : G0T0447 

436 IF VV=4 AND HV=3 THENPRINTA* 
< 9 ) : T=0 : 0=5 : H A= l : G0T0447 

437 IF VV=3 AND HV=3 THENPRINT;A 

* < 9 ) : T=0 : 0=8 : H A= l : Q0T0447 

438 IF VV=3 AND HV=4 THENPRINT;A 
*(9) :T=0:0=l0:HA=l:G0T0447 

439 IF VV=3 AND HV=5 THENPRINT;A 
4 <9) : T=0: 0=7: HA=1 : G0T0447 

440 IF VV=2 AND HV=5 THENPRINT;A 
* (9) : T=0: 0=5: HA=1 : G0T0447 

441 IF VV=1 AND HV=5 THENPRINT;A 
* (9) : T=0: 0=9: HA=1 : G0T0447 

442 IF VV=1 AND HV=4 THENPRINT;A 
*(9> :T=0:0=10:HA=l:G0T0447 

443 IF VV=1 AND HV=3 AND D4=l TH 
ENPRINT; A*<9) :PRINT"IN THE SOUTH 

WALL IS ONE BLACK- COLORED BLOC 
K. ":HA=l :T=o:0=3:GOT0447 

444 IF VV=1 AND HV=3 THENPRINT;A 
* (9) : T=0: 0=0: HA=1 : G0T0447 

445 IF VV=2 AND HV=3 THENPRINT"! 
T IS SOME SORT OF SHRINE. THERE A 
RE SEVERAL LARGE WINDOWS IN THER 
OOM-THE DAYLIGHT IS A WELCOME C 
HANGE FROM THE DARKNESS OF THE C 
ASTLE BELOW. AN ALTAR IS LOCATED I 
N THE CENTER OF THE ROOM.":T=0:0 
=l:G0T0447 

446 PR I NT ; " LEVEL 5 HV= " ; HV ; " VV= 
"iVV:G0T030 

447 D=0:U=o:N=o:S=o:E=o:W=o 

448 print; A*(l> 

449 IF T=0 AND 0=0 THENPR I NT ; A* ( 
8) :GDT030 

450 IF T=l THEN PRINT; A* (2> : U=l : 
G0T0453 

451 IF T=2 THEN PRINT; A* <3> : D=l : 



G0T0453 

452 IF T=3 THEN PRINT; A* (2) ; A* (3 
) :U=l:D=l 

453 ON O B0T0454,455,456,457,458 
, 459, 460, 461 , 462, 463, 464, 465, 466 
,467,468,469 

454 PRINT(SA*(4) :N=l:G0T030 

455 PRINT; A*(5) :S=l:G0T030 

456 PRINT;A*(6> :E=l:60T030 

457 PRINT;A*<7> :W=l:GOT030 



458 PRINT; A* (4) 


; A*(5> 


: N=i : s= 


= 1 : GO 


T030 








459 PRINT; A* (4) 


; A«(6) 


: N= 1 : E= 


= 1 : GO 


T030 








460 PRINT;A*<4> 


; A*<7) 


: N— 1 : w= 


1 . GO 


T030 








461 PRINT; A* (5) 


;a«(6> 


: s— 1 : E= 


i . GO 


T030 








462 PRINT;A*<5) ; A*(7) 


:S=l:W= 


1:60 


T030 








463 PRINT; A* (6) 


;a*<7) 






T030 








464 PRINT;A*<4> 


; A«(5> 


;A4(6> : 


N=l: 


S=l:E=l:GOT030 








465 PRINT; A* <4) 


; A*<5> 


i A*(7> : 


N=l: 


S=l:W=l:G0T030 








466 PRINT; A* (4) 


; A«(6) 


;A*(7) : 


N=l: 


E=l:W=l:G0T030 








467 PRINT; A* (5) 


;A«<6> 


iA*(7) : 


s=l: 


E=l: W=l:G0T030 








468 PRINT; A* <4) 


; A*<5> 


;A«<6) ; 


A*<7 



) : N=l : S=l : E=l : W=l : G0T030 

469 G0T030 

470 'A* (1-10) DATA LINES 

471 DATA VISIBLE DIRECTIONS TO M 
OVE ARE- , -UP , -DOWN , -NORTH , -SOUTH 

, -EAST , -WEST , NONE ,1 AM IN 

A HALLWAY. THE WALLS ANDFLOOR AR 
E SOLID STONE. , 10 

472 DATA LOOK, SLAY, JUMP, LIST, SAY 
, RUB , TURN , L I FT , CUT , STAB 

473 DATA CLIM, GET, UNLO, STAN, PULL 
, PUSH , DROP , C ARR , BR I B , BRE A 

474 DATA HIT, DIG, BURN, OPEN, PUT, S 
MEL, SPRI, KICK, DIVE, WIPE 

475 'C*(l-40> DATA LINES 

476 DATA WEB, STRA, SWOR, DAGB, RUBY 
, R I NG , SCOR , CHA I , SL I M , WALL 

477 DATA OUTL, FLIN, NECK, STAI , DUS 
T , DESK , PARE , DRAW , BOTT , VESS 

478 DATA PENT, STAT, N I CH, KEY, DOOR 
, FLOO, PLAN, OCTA, TRIA, MIRR 

479 DATA BLOC, CHES, HEXA, SPID, LAN 
C, HOLE, ALT A, SPIK, BARS, SACK 



ARE YOUR WALKING FINGERS 
GETTING FOOTSORE? 

Typing in the longer listings from our Rainbow Book of Adventures can be 

instructive in terms of providing an opportunity to see how various portions of 
a program are developed, but, oh, is it tedious at times. Just keying in Sir 
Randolf of the Moors, for instance, can make for a lost weekend— or several 
weeknights. There is an answer, though: the Rainbow Adventure Tape. 

By ordering the Rainbow Adventure Tape, you can give those tired fingers 
and bleary eyes a rest. With the Rainbow Adventure Tape, you'll be able to 
spend your time enjoying these Adventures, instead of typing, typing, typing . . 
. and debugging. You just poptheRainbow Adventure Tape into your cassette 
recorder and you're ready for Adventuring. 

Tlie Rainbow Adventure Tape is just $8* and contains all of the programs in 
7/76 Rainbow Boole of Adventures. 

You can use your Visa, MasterCard or American Express to order the 
Rainbow Adventure Tape by telephone at (502) 228-4492 or you can enclose 
payment and mail your order to: 



Rainbow Adventure Tape 
9529 U.S. Highway 42 
P.O. Box 209 
Prospect, KY 40059 



YES! Send me the Rainbow Adventure Tape 

Name 

Address 

City State Zip. 



Payment Enclosed Charge my Visa account Charge my MasterCard account Charge my American Express account . 

Account No Card Expires Interbank No 

Signature 

*Non-U.S. orders ad $2 (U.S. funds) to cover additional postage. 
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Imagine being lost in a forest, feeling scared and 
lonely. Everything around you looks hauntingly 
anfamiliar. Your steps and heartbeat quicken 
every second as you wander aimlessly through the 
brush. "Should I go this way, or did I just come 
from that direction? Where am I, and where am I 
going?" you wonder. 

Along your journey, you will encounter a house, 
cabin, cave and many other interesting places. 
Your objective is to explore all 26 rooms without 
getting killed. 

This relatively easy and unusual program, while 
excellent for the beginning Adventure game player, 
is fun for everyone. It uses only 4K of RAM, so if 
you have a 4K Color Computer, you mvist 
CLEAR 50 before CLOADmg. 







4K 


J.. ..V. 







10 .... 0233 
16 .... 0406 
END . . 0852 



The listing: 

1 CLEAR 150 

2 S*= " " : READL* , A* , I « : T=T+ 1 

3 S*=S*+ I *+CHR* (13>:IFI*="" THEN4 
ELSEREADI*:G0T03 

4 CLS:PRINT"I AM ";L«:PRINT"I CA 
N SEE: ": PRINTS* 

5 IFT=26THENPRINT: PRINT" IT LOOKS 
LIKE THIS WHOLE THING HAS BEEN 
A DREAM! ":PR I NT "IN YOUR DREAM Y 

OU GOT TO SEE A TOTAL OF "T "ROOM 
S ! " : END 

A INPUT "WHAT NOW" ; I*: IFI«=A*THEN 
2ELSE I FT= 1 THEN4ELSE I F I *= " LOOK " TH 
EN4 

7 IFT=6ANDI*="G0 WINDOW"THENPRIN 
T"YOU JUST FELL OUT THE WINDOW A 
NDKILLED YOURSELF ! " : G0T024 

8 IFT=9ANDI*="G0 N0RTH"0RI*="80 
EAST"THENRUN 

9 IFT=10ANDI*="G0 BANK " THENPR I NT 
"YOU FELL IN THE RIVER AND YOU 

DROWNED ! " : GDT024 

10 IFT=11ANDI*="GET BOX "THENPR IN 
T"THE BOX WAS FULL OF POISONOUS 

SPIDERS. YOU ARE NOW DEAD ! " : 0 
0T024 

11 IFT=12ANDI«="CLIMB TREE"THENP 
R I NT "SORRY, THE BEAR CLIMBED THE 

TREE ALSO AND ATE YOU ! " : GOT 

024 



12 IF<T=150RT»t&) ANDI*="EAT FOOD 
"THENPR I NT "THE FOOD WAS POISONED 

AND YOU JUST DIED A HORRIBLE 
DEATH ! " : G0T024 

1 3 I FT=25AND I «<> " RUN " THENPR I NT " T 
HE GUARD GOT TO YOU AND KILLED Y 
OU WITH HIS SWORD !": G0T024 

14 PRINT"! CAN'T " I*: PRINT: G0T06 

15 DATALOST IN THE FOREST, 60 WES 
T, NOTHING SPECIAL,, BY THE EDGE O 
F THE FOREST, GO HOUSE, A HOUSE,,! 
N FRONT OF A HOUSE, UNLOCK DOOR, A 

DOOR, , IN FRONT OF A HOUSE, ENTER 
HOUSE, AN OPEN DOOR, , INSIDE A HO 
USE , 60 UPST A I RS , ST A I RS , FURN I TURE 

16 DATA IN A BEDROOM, GO DOWNSTAIR 
S,A WINDOW, A BED, STAIRS, , IN A FA 
MILY ROOM, GO FIREPLACE, A FIREPLA 
CE,A T.V. SET,, INSIDE A TUNNEL, G 
0 NORTH, NOTHING — IT'S TOO DARK!, 

17 DATAOUT IN THE FOREST, GO SOUT 
H,A HOUSE FAR AWAY,, BY A RIVER B 
ANK,GO CAVE, A CAVE, , INSIDE A CAV 
E,GO EAST, A LIGHT TO THE EAST, A 
LARGE BOX, 

18 DATAOUTSIDE THE CAVE, RUN, A HU 
NGRY BEAR, A TREE,, UP ON A H!LL,Q 
O CABIN, A SMALL CABIN, , IN FRONT 
OF A CABIN, ENTER CABIN, A DOOR, A 
HORSE, 

19 DATA INS IDE THE CAB IN, GET SADD 
LE,FOOD,A SADDLE, , INSIDE THE CAB 
IN, EXIT CABIN, FOOD, 

20 DATAOUTSIDE THE CAB IN, RIDE HO 
RSE,A CLOSED DOOR, A HORSE,, ON A 
HORSE, GET OFF HORSE, A LARGE LAKE 
,,BY A LARGE LAKE, GO BOAT, A HORS 
E,A SMALL BOAT,, IN A SMALL BOAT, 
ROW BOAT, A SMALL ISLAND, 

21 DAT AON AN ISLAND, DIG SAND, SAN 
D,A SHOVEL,, ON AN ISLAND, BREAK B 
OTTLE,A BOTTLE IN THE SAND, A SHO 
VEL, , IN A STRANGE LOOKING PLACE, 
GET WAND, A MAGIC WAND, A BLUE CLO 
UD ENGULFING ME, 

22 DATA IN A PALACE, GET DIAMONDS, 
A WELL ARMED GU ARD , D I AMONDS ON A 

TABLE,, IN A PALACE, RUN, AN ANGRY 
GUARD, 

23 DATAIN MY HOME, , FAMILIAR THIN 
GS AROUND ME, 

24 PR I NT "YOU ONLY GOT TO SEE"T"R 
OOMS. " 

(Jorge Mir is a certified public accountant and cur- 
rently controller of a "Fortune 500" corporation. He 
has published most of his original computer work, 
mainly utilities, through the Rainbow. His wife, 
Montrose, and three children only see him at meal 
times since he purchased his first Co Co.) 
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Your head throbs with pain as you slowly 
awaken and realize you are sitting in an 
unfamiliar room. You cannot remember who 
you are, where you are or anything about the past. 
Is this a dream? Where are you and how did you get 
here? 

The room is relatively small and has one door. As 
the minutes progress, your confusion and feeling of 
helplessness mounts because you realize you are 
being held against your will and it will be a very 
hard task to escape. 

This tough One Room Adventure keeps even the 
more experienced player baflled at times as you 
search for freedom. 
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The listing: 



1 60T0401 

2 ' ** ONE ROOM ADVENTURE *« 



4 
5 

6 

7 

a 

9 



BY: JORGE MIR 



<C) 1982 



CLEAR 1000 

10 CLS: PRINT" * A ONE ROOM ADV 
ENTURE *""' 

11 PRINT STRING* (32, "-") ; 

12 PR I NT ".PR I NT" YOU HAVE JUST AW 
AKENED. PRINT: PRINT" YOU DON'T 
HAVE THE SLIGHTEST IDEA WHERE 

YOU ARE OR EVEN WHO YOU AR 

E ! " 

13 PR I NT: PR I NT" YOU SEEM TO HAVE 
AMNESIA FROM A BLOW TO YOUR H 

EAD. " 

14 ST*--=^STRING* (32,CHR* (140) ) 

15 DIM VB* (85) ,RM$ (85) , OB* (S5) ,E 
X*(a5) ,0B(S5) ,D(85,6) ,D*(6> ,F(30 
) , F* (30) : MX=S: CA=0: XT=0 

16 FOR X=1T06:READ D*<X) 

17 X=0 



NEXTX 



IS X=X+l:READ RM*(X):IF RM*<X)=" 
END" THEN 20 

19 FOR Y=1T06:READ D ( X , Y) : NEXTY: 
GOTO IS 

20 X=0 

21 X=X+l:READ OB*(X):IF OB*(X)=" 
END"THEN N0=X-1 : G0T024: ELSE READ 

I*,DB(X) :0B*=0B*+I* 

22 IF X>6 THEN READ EX*(X-6) 

23 GOTO 21 

24 X=0 

25 X=X+l:READ I*: IF I*="END" THE 
N 26 ELSE VB*(X)=I*: VB*=VB*+LEFT 
*(I*,3) :G0T025 

26 X=0 

27 X=X+l:READ F*(X):IF F*(X)="EN 
D" THEN 28 ELSE G0T027 

28 G0SUB3S3 

29 CLS: PRINT: PRINT" IF YOU GET S 
TUCK AND DO NOT KNOW WHAT TO 

DO, JUST TYPE IN 'HELP' AND S 
EE WHAT HAPPENS- " 

30 PRINT: PRINT" ALSO, IF SOME OF 

NOT MAKE SENSE T 
KEEP IN MIND THA 
MAY GET CONFUSED 



MY ANSWERS DO 
0 YOU, PLEASE 
T SOMETIMES I 



IF THAT HAPPENS, 
JUST KEEP TRYING 



IF YOU GET T 
THIS ADVENTU 
SOLVED IT. 



31 PRINT: PRINT' 
YOU SHOULD 
OTHER THINGS. " 

32 GOSUB 383 

33 CLS: PR I NT: PR I NT' 
IRED OF PLAYING 
RE AND YOU HAVEN'T 
JUST TYPE 'SAVE' . " 

34 PRINT: PRINT" YOU CAN CONTINUE 
THE ADVENTURE AT A LATER TIME 

BY TYPING THE WORD 'LOAD'." 
G0SUB3S3 
Y0U=1 

CLS: PRINT" I AM "; 
IF YOU<0 THEN Y0U=2 
PRINT RM$(YOU):IF Y0U>1 



36 
37 
38 
39 
43 

40 PRINT"! 



THEN 



AM SITTING ON A CHAIR 



O THEN PRINT"! AM BLI 



41 IF F(2>^ 
NDFOLDED" 

42 GOTO 48 
PRINT"! CAN SEE: 
FOR 1=1 TO NO 
IF INT (OB ( I > ) OINT (YOU) 



F=0 



43 
44 
45 
47 

46 PRINT" "OB* ( I ) :F=1 

47 NEXT: IF F=0 THEN PRINT" 
ING INTERESTING" 

48 IF BT>6 THEN F ( 1 ) =0 

49 IF F(l)=l THEN BT=BT+ 1 : G0SUB3 
85 

50 IF F ( 1 3 ) = 1 AND OB ( 4 9 )< >0 THEN 



THEN 



NOTH 
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PR I NT "SOMETHING JUST CAME THROU 
GH THE BROKEN WINDOW. ": F ( 13) =0: 0 
B(54)=6:EX*<37)="THERE IS A PIEC 
E OF PAPER TIED TO ONE OF ITS L 
EGS. " 

51 PRINT ST*; 

52 INPUT "WHAT SHOULD I DO"; I* 

53 IF LEN(I*)=1 THEN X=INSTR("NS 
EWUD",I*):IF X>0 AND X<7 THEN YO 
U=X+l:G0T037 

54 IF I*=""THEN52 ELSE IF I*="LO 
OK" THEN CLS:G0T037 

55 IF I*="QUIT" THEN END 

56 IF I*="SAVE" THEN 351 

57 IF I*="HELP" THEN 92 

58 IF I*="LOAD" THEN 357 

59 IF I*="RADIO OFF" THEN F < 1 ) =0 
: PR I NT "OK, RAD It) IS 0FF.":G0T04a 

60 IF I*="PLAY RADIO" OR I*="RAD 
10 ON" THEN IF 0B(14)=0 THEN F(l 
)=l:G0T043:ELSE PRINT" IT NEEDS A 

BATTERY. " : G0T04S 

61 IF LEFT* (I*,3)<>"INV"THEN 67 

62 CLS : PR I NT " I AM CARRY I NG : " : C A= 
0 

63 FOR I=1T0 NO 

64 IF 0B(I)=-1THEN PRINT" " ; OB* 
(I) :CA=CA+1 

65 NEXT: IF CA=0 THEN PRINT"NOTHI 
NG" 

66 GOTO 48 

67 REM 

68 SP=INSTR(I*,CHR*(32) ) : IF SP=0 
THEN PR I NT "TRY USING TWO WORD C 

OMMANDS. ":G0T048 

69 V*=LEFT*(I*,SP-1) :0*=MID*(I*, 
5PM) 

70 A*=LEFT*(V*,3) :B*=LEFT*(0*,3) 



71 


IF 


A*= 


"TAK" 


THEN 


A*= 


"GET" 


72 


IF 


A*= 


"LEA" 


THEN 


A*= 


"DRO" 


73 


IF 


A*= 


"LOO" 


THEN 


A*= 


"FAC" 


74 


IF 


A*= 


"MOV" 


THEN 


A*= 


"PUS" 


75 


IF 


A*= 


"TEA" 


THEN 


A* = 


"BRE" 


76 


IF 


A*= 


"TDU" 


THEN 


A*= 


"FEE" 


77 


IF 


B*= 


"FLO" 


THEN 


B*= 


"DOW" 


73 


IF 


B*= 


"CEI" 


THEN 


B*= 


"UP " 


79 


IF 


A*= 


"SHR" 


THEN 


A*= 


"CUT" 


SO 


IF 


A*= 


"UNL" 


THEN 


A*= 


"OPE" 


81 


IF 


B*= 


"CB" 


THEN ; 


B*="RIG" 


82 


IF 


B*- 


"BIR" 


THEN 


B*= 


"DOV" 



S3 V=(INSTR (VB*. A*) -1-2) /3: IF V<1 
TiiEN PRINT"SORRY, I JUST DON'T K 
NOW HOW TO": PRINT V*" ANYTHING." 
:GOTO 48 

84 0=(INSTR<OB*,B*) +2) /3: IF 0>1T 
HEN 115 

05 IF A*="EXA"ANDB*="POC"THEN IF 
0B(35)=~1 AND OB <24) =OTHENPRINT 
"I SEE A PAIR OF PLIERS. ": G0T048 
:ELSE IF □B(35)--=-l AND OB (24)00 



THEN PR I NT "POCKETS ARE EMPTY": GO 
T048:ELSEPRINT"I DON'T HAVE ANY 
POCKETS. ":G0T048 

86 IF A*="EXA"ANDB*="R00"THENPRI 
NT" IT'S A LARGE ROOM. THERE IS 
A WINDOW AND A DOOR AND THERE A 
RE LOTS OF THINGS AROUND. ": G0T04 
8 

87 IF A*="EXA"ANDB*="GAT"THENPRI 
NT "THE ONLY WAY TO OPEN IT IS TO 

CUT THE WIRE. ":G0T048 

88 GOTO 115 

89 ' ************************** 

90 '**«»»* HELP SECTION ****** 

91 ' It************************* 

92 INPUT"TELL ME WHICH OBJECT HA 
S YOU A LITTLE PUZZLED" ; I* : PRIN 
T ST* 

93 IF I*="ROPE" THEN PR I NT "HAVE 
YOU TRIED RUBBING IT ON SOMET 
RING SHARP?" :G0T043 

94 IF I*="RADIO" THEN PRINT"TRY 
PLAY I NG IT.": G0T043 

95 IF I*="CB" OR I*="SET" THEN P 
R I NT "READ A BOOK ON IT.":G0T04S 

96 IF I*--="DOVE" OR I*="BIRD" THE 
N PR I NT "LET IT FLY AWAY AND SEE 
WHAT HAPPENS. " : G0T048 

97 IF I*="MOUSE"OR I*="RAT" THEN 
PR I NT "YOU CAN'T CATCH IT, SO DO 

N'T WASTE YOUR TIME. " : G0T048 

98 IF I*="STOVE" THEN PRINT"THER 
E MAY BE SOMETHING IN IT.":G0T04 

a 

99 IF I *=" ANTENNA" THEN PRINT"YO 
U CAN MAKE AN ANTENNA OUT OF WI 
RE. ":60T04S 

100 IF I*="WlNfcOW" THEN PRINT" IT 
CAN'T BE OPENNED, SO DON'T WA 

STE YOUR TIME. ":G0T04a 

101 IF I*="CORD"THENPRINT"IT WON 
'T DO ANY GOOD UNLESS IT IS PLU 
GGED IN.":G0T04a 

102 IF I*="ROOM" THEN PRINT" IN C 
ASE YOU DIDN'T KNOW IT, YOU CAN 
ALSO LOOK UP OR DOWN. " : G0T04S 

103 IF I*="ME"DRI*="ALL" OR I*=" 
" OR I *=" ANYTHING" OR I*="EVERYT 
HING" THEN PR I NT "TRY MOVING THIN 
GS AROUND. ":G0T04a 

104 IF I *=" BUTTON" THEN PRINT" IF 
YOU PUSH IT, YOU MAY BE ABLE TO 
TRANSMIT ON THE CB.":G0T04a 

105 IF I *= "CHAIR" THEN PR I NT" HA V 
E YOU TRIED FEELING IT?":G0T04a 

106 IF I*="DOOR" THEN PRINT" IT C 
AN ONLY BE OPENNED FROM THE OUTS 
IDE. ":G0T04S 

107 IF I*="GLASS" THEN PRINT" IT 
CAN BE USED FOR CUTT ING. " : G0T04S 
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108 IF I *=" HANGER" THEN PR I NT "MA 
YBE IT CAN BE USED AS A CB AN 
TENNA. ":G0T04S 

109 IF I*="HOLE" THEN PR I NT "TRY I 
NG COVERING THE HOLE WITH SOME 
THING. ":G0T04S 

110 IF I*="TOOLBOX" THEN PRINT" Y 
OU NEED SOMETHING WITH WHICH T 
0 OPEN IT. ":G0T048 

111 IF I*="PILL0W" THEN PRINT"TR 
Y GETTING WHAT'S INSIDE. ": G0T048 

112 IF I*="PAPER" THEN PR I NT "YOU 
NEED TO HAVE SOMETHING IN YOU 

R HANDS BEFORE YOU CAN READ IT. 
" : G0T04e 

113 IF I *=" BLINDFOLD "THEN PRINT" 
YOU NEED TO UNTIE YOUR HANDS 
BEFORE YOU CAN REMOVE I T. ": G0T04a 

114 PR I NT "SORRY, I CAN'T HELP YO 
U WITH THAT ITEM. " : G0T04a 

115 F=0: IF 0B(0)=Y0U THEN F=l EL 
SE IF 0B(0)=-1 THEN F=2 

116 'IF PEEK ( S<H8a ) *256+PEEK ( 8<Ha9 
) >1471THENCLS 

117 ON V GOTO 120, 146, 154, 1£»7, 17 
2,181, 205, 212, 215, 222, 227, 229, 23 
5 , 239 , 242 , 246 , 253 , 257 ,261, 266 , 27 
5 

US IF LEN(I*)=1 THENPRINT"I CAN 
' T GO THAT WAY i " : GOTO 37 

119 PRINT"! DON'T UNDERSTAND WHA 
T YOU ARE TELLING ME.":G0T048 

120 ' «** GET *** 

121 IF F(2)=0 THEN PRINT"! CAN'T 
GET ANYTHING NOW ! " : GOT04a 

122 IF F=2 THEN PRINT"! ALREADY 
HAVE IT!": G0T04S 

123 IF CA=>MX THEN PRINT"! CAN'T 
CARRY ANYTHING ELSE ! " : G0T04B 

124 IF 0<1 THEN PR I NT "WHY DO YOU 
WANT TO DO THAT F0R?":G0T048 

125 IF 0<7 OR 0=15 OR 0=16 OR 0= 
17 OR 0=26 OR 0=39 OR 0-40 OR 0= 
41 OR 0=46THEN PRINT"DON'T BE SI 
LLY ! " : G0T04a 

126 IF 0=11 OR 0=27 OR D=320R 0= 
50 THEN PRINT"! CAN'T, IT'S TOO 
HEAVY ! " : G0T04S 

127 IF 0=12 THEN IF F(6)=0 THEN 
PRINT"! CAN'T, DESK IS LOCKED.": 
G0T043:ELSE EX* (0-6)=" I SEE A CB 

SET.": IF V=3 THEN 166 

128 IF 0=43 AND 0B(54)=0 THEN IF 
F(5)=0THEN PRINT"! CAN'T, THE C 

AGE IS NOT OPEN. ":60T04a 

129 IF 0=43 AND 0B(49>=-1 THEN I 
F DB(54>=6 THEN OB (49) =0: OB (54) = 
0:G0T0144:ELSEPRINT"IT WON'T COM 
E TO ME. " : G0T048 

130 IF 0=43 AND OB (49) O-ITHEN P 



RINT"IT WON'T COME TO ME. ":GOT04 
8 

131 IF 0=45 THEN IF LEFT* (EX* (34 
),2)="I "THEN EX*(34)="THERE IS 
NOTHING IN THERE. ": GOTO 144: ELSE 
GOTO 145 

132 IF 0=31 THEN PRINT"! CAN'T D 
0 THAT. ":60T04S 

133 IF 0=30 THEN 0B(31>=Y0U 

134 IF 0=54 AND F(7)=l THEN F(7) 
=0: OB (54) =0: OB (49) =0: 0=43: G0T014 
4 

135 IF 0=55 AND 0B(55)=0 THEN PR 
INT"! CAN'T, THE WIRE IS WRAPPED 

TOO T I GHT . " : G0T048 

136 IF 0=35 THEN OB*(0)="A COAT" 
:OB(36)=5:60T0144 

137 IF 0=36 THEN OB*(0)="A HANGE 
R": GOTO 144 

138 IF 0=33 THEN EX* (26)=" I SEE 
A CAN OPENER. ": GOTO 144 

139 IF 0=18 THEN OB (40) =3 

140 IF 0=29 THEN IF F(6)=0THEN14 
5ELSE EX* (6)=" IT'S NOW EMPTY. ":6 
0TD144 

141 IF 0=44 AND LEFT* <EX* (37) , 1 ) 
<>"T" THEN PRINT"! DON'T SEE ANY 

PAPER HERE. ":G0T048 ELSE EX* (37 
)="IT'S A SPECIAL TYPE DOVE." 

142 IF 0=56 THEN EX* (26) ="THERE 
IS NOTHING THERE. ":6OT0i44 

143 IF 0=49 THEN IF 0B(49)=0 THE 
N 145 ELSE 144 

144 0B<D)=-l:PRINT"0K, I GOT IT. 
":CA=CA+l:G0TD4S 

145 PRINT"! CAN'T GET THAT NOW." 
: 60TD4a 

146 ' *** DROP *** 

147 IF F02 THEN 153 

148 IF 0=43 AND F(4)=iTHEN PRINT 
"THE DOVE FLEW AWAY THROUGH THE 

BROKEN WINDOW. " : F ( 13) =1 : OB (43) = 
O: GOTO 152 

149 IF 0=43 THEN OB (43) =0: OB < 54) 
=6: PR I NT "OK, I LET THE DOVE 60." 
: GOTO 152 

150 IF Y0U=6 THEN Y0U=7 

151 OB(0)=YOU:PRINT"OK, I DROPPE 
D IT. " 

152 CA=CA-l:G0T048 

153 PRINT"! DON'T HAVE IT.": GOTO 
48 

154 - «** OPEN **«■ 

155 IF 0=13 THEN PR I NT "THE BACK 
COVER POPPED OPEN AND SOMETHING 

FELL TO THE FLOOR. ": OB ( 14) =7: GO 

T043 

156 IF 0=11 THEN IF 0B(45)=--1 TH 
EN F (6) =1 :G0T0166:ELSE PRINT"! D 
ON'T HAVE ANY KEYS, " : G0T04S 
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157 IF 0O42G0T0159 

158 IF DB<55)=0THENPRINT"I CAN'T 
, THE GATE IS WIRED SHUT. " : G0T04 
8 ELSE IF F(4>=1THENPRINT"THE DO 
VE JUST FLEW OUT THROUGH THE BR 
OKEN WINDOW. ":F<13)=l:F(5)=l: EL 
SEF(5)=l:0B(54)=6:F(7)=l:EX*(0-6 
)="IT'S EMPTY. ": GOTO 166 

159 IF 0=12 THEN127 

160 IF 0=40 THEN INPUT "THE COMB I 
NATION"; I*: IF I*="4RSL12R"THEN P 
RINT"CLICK! ":EX*(0-6)="I SEE A S 
ET OF KEYS. ": GOTO 166 

161 IF 0=21AND(F=1 OR F=2) THEN 
IF 0B(56)=-1 THEN OB (22) =YOU: OB ( 
23) = YOU : OB < 25 ) = YOU : GOTO 1 66 : ELSE 
PR I NT "THE TOP IS RUSTED AND CANN 
OT BE OPENED. ":G0TO4S 

162 IF 0=50 THEN IF 0B(37)=0THEN 
PRINT" I OPENED THE STOVE AND SA 

W AN ELECTRIC CORD INSIDE.": GO 
T048ELSE PR I NT "THERE IS NOTHING 
IN IT. ":G0T04S 

163 IF F=0G0T03S0ELSE IF 0=50THE 
N 166 

164 PR I NT "SORRY, IT DOES NOT OPE 
N. ":G0T048 

165 PRINT" IT'S ALREADY OPEN.": GO 
T04a 

166 PRINT"OK, IT'S NOW OPEN. ":G0 
T04a 

167 '**» CLOSE *** 

168 IF 0=42 THEN IF F<5)=1 GOTOl 
71 ELSE PRINT" IT'S ALREADY CLOSE 
D. ":G0T04S 

169 IF F=0G0T03a0 

170 PRINT" I TRIED, BUT IT DOESN' 
T CLOSE. ":G0T04S 

171 PRINT"OK, IT'S NOW CLOSED.": 
G0T048 

172 '#»* EXAMINE «** 

173 IF 0<1 THEN PRINT"DID ANYBOD 
Y MENTION ANYTHING ABOUT ANY" 
;: PRINT MID*(I*, INSTRd*, " "));" 
?":G0T04S 

174 IF F(2)=0 THEN PRINT"! CAN'T 
, I'M BLINDFOLDED. ":G0T048 

175 IF 0<7 THEN Y0U=0+1 : G0T037 

176 IF B*="POC"THEN IF 0B(24)=0 
AND0B(35)=-1THEN PR I NT "I SEE A P 
AIR OF PLIERS. ":G0TO48: ELSE PRIN 
T"THE POCKETS ARE EMPTY. ": G0T04S 

177 IF 0=44 AND F02 THEN PRINT" 
I DON'T HAVE IT.":G0T048 

178 IF 0=44 AND OB (51 ) O-ITHENPR 
INT"THERE IS PRINTING ON IT.": GO 
TD4a 

179 PRINT EX*(0-6> :G0T048 

180 PR I NT "NOTHING SPECIAL ABOUT 
IT. ":G0T048 



181 ' *** PUSH *** 

182 IF FOl THEN 187 

183 IF 0=11 THEN OB ( 15) =2: G0T020 
4 

184 IF 0=27 THEN OB (39) = YOU: GOTO 
204 

185 IF 0=30 THEN OB (31 ) =YOU: GOTO 
204 

186 IF 0=31 THEN IF0B(22)<>-1 TH 
EN PRINT" I CAN'T WITH JUST MY HA 
NDS . " : G0T048 : ELSE OB ( 20 ) = YOU : GOT 
0204 

187 IF 0O46 THEN 203 

188 IF F(16)=0 THEN PRINT" IT WIL 
L NOT WORK AT ALL WITHOUT AN ANT 
ENNA ! " : G0T04S 

189 IF 0B(29)=0THEN 203 

190 IF F(9)-0 OR F(10)=0 THEN PR 
I NT "THE CB RIG DOES NOT SEEM TO 
BE WORKING AT ALL-":G0T048 

191 PR I NT "THE CB SWITCHED TO TRA 
NSMIT. WHAT DO YOU WANT TO SA 
Y? ":LINE INPUT I* 

192 IF F(14)=l THEN BT=BT+1:IF B 
T=>10 THEN PR I NT "SORRY BUDDY, BU 
T I CAN'T HEAR YOU ANYMORE. Y 
OUR BATTERIES MUST BE LOW. ":E 
X*(a)="THEY ARE DEAD. " : F ( 14) =0: G 
0T048:ELSE PRINT" I HEAR YOU OLD 
BUDDY, KEEP ON TALKING SO WE C 
AN FIND YOU- ":BT=BT+1:G0T048 

193 IF F(15)=l AND XT=0 THEN PRI 
NT "I HEAR YOU OLD BUDDY, KEEP ON 

TALKING SO WE CAN FIND YOU.": 
XT=XT+l:G0T048:ELSE XT=XT+1 

194 IF F(15)<>2 THEN 203 ELSE ON 
XT GOTO 196,197,198,199,200 

195 PR I NT "WE HEAR YOU OLD BUDDY! 
KEEP YAKING ON THAT RI6!":G 

DTD48 

196 PR I NT "WE ARE GETTING SOME MO 
RE HELP. JUST STAY PUT ! " : G0T04S 

197 PR I NT "WE GOT YOUR SIGNAL TRA 
CKED DOWN AND WE THINK WE KNOW W 
HERE YOU ARE ! " : G0T048 

198 PR I NT "KEEP THOSE LIPS GOING, 
BUDDY, SO WE CAN FIND YOU QUI 

CKER. ":G0T048 

199 PRINT"WE SEE A BUILDING IN T 
HE FIELD. THAT MUST BE IT!":PRIN 
T"WE'RE COMING IN! " 

200 CLS:PRINT"THE truck DRIVERS 
CRASHED THE DOOR AND GOT YOU O 
UT SAFELY." 

201 PRINT: PRINT"NEXT TIME BE MOR 
E CAREFUL WHEN YOU SEE A ROBBERY 

TAKING PLACE! " 

202 PRINT: PRINT: END 

203 PR I NT " NOTH I NG HAPPENED . " : GOT 
048 
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204 PR I NT " OK , IT MOVED . " : G0T048 

205 '♦** BREAK 

206 IF F=0 THEN 380 

207 I NPUT " W I TH WHAT " ; I * : G0SUB3a2 
:IF X>0THEN207 

208 IF 0=26 THEN IF I *=" CROWBAR" 
OR I *=" HAMMER" OR I*="RACK" THE 

N PR I NT "THE GLASS WINDOW PANES B 
ROKE. ":F(4)=l:0B(19>=7:EX*(0-6)= 
"THE WINDOW IS BROKEN. ": G0SUB37S 
:G0T04a:ELSE G0T0211 

209 IF 0=26 AND F(7)=l THEN PRIN 
T"THE DOVE FLEW OUT THE BROKEN 

WINDOW. ":F(13)=l:0B(54)=0:0B(4 
3)=0:G0T04S 

210 IF 0=33 AND 0B(19)=-1 THEN P 
PINT "SOMETHING FELL OUT OF IT.": 
OB (51) =7: EX* (27)=" IT'S TORN AND 
THERE IS NOTHING IN IT.":G0T04S 

211 PRINT" I TRIED, BUT NOTHING H 
APPENED. ":G0T04S 

212 '*** ENTER *** 

213 IF F=0 THEN 380 

214 PRINT" I TRIED TO ENTER, BUT 
COULDN ' T . " : GDT04a 

215 READ ♦** 

216 IF F02 THEN PRINT"! DON'T H 
AVE IT.":G0T04S 

217 IF 0=28 THEN PR I NT "THE BOOK 
SAYS: ": PR INT" IN ORDER TO OPERATE 

CB SET YOU NEED SOME POWER, AN 
ANTENNA AND A MICROPHONE.": 

G0T04a 

218 IF 0=44 AND OB (51 ) O-ITHEN P 
R I NT "THE PRINT IS TOO SMALL TO R 
EAD WITH THE NAKED EYE.":G0T04S 

ELSE PRINT EX*(0-6) :G0T04S 

219 IF FOl THEN 213 

220 IF F=0 THEN 380 

221 PRINT "NOTHING SPECIAL NOTED 
. " : G0T048 

222 •■■ *** TURN *** 

223 IF 0=17 THEN F ( 10) =1 : G0T0226 

224 PRINT"! TRIED, BUT NOTHING H 
APPENED. ":G0T04S 

225 IF F=0 GOTO 380 

226 PR I NT "OK, I TURNED IT.": GOTO 
48 

227 ■■■ **» RUN *** 

228 PRINT"DON'T BE RIDICULOUS!": 
G0T048 

229 ' *** SHAKE «** 

230 IF F02 THEN PRINT"! DON'T H 
AVE IT TO SHAKE. " :GOT048 

231 IF 0=48 THEN PR I NT "SOME SEED 
S FELL TO THE FLOOR.": ELSE 233 

232 IF F(17)=0 THEN PRINT" A MOUS 
E ATE THE SEEDS AND TOOK OFF BE 
FORE 1 COULD CATCH IT ! " : G0T048: E 
LSE 0B(49)=7:60T048 



233 REM 

234 PR I NT " NOTH I NG HAPPENED . " : GOT 
048 

235 '*** UNTIE ♦** 

236 IF F(3)=0 THEN 381 

237 IF 0=9 THEN 255 

238 G0T048 

239 ' *** FEEL *** 

240 IF 0=7 THEN PRINT"! FEEL SOM 
ETHING LIKE A NAIL. " : G0T04S 

241 PRINT"! DON'T FEEL ANYTHING 
UNUSUAL. ":G0T048 

242 ' *»* RUB *** 

243 I NPUT "ON WHAT" ; 14: G0SUB382: I 
FX>0THEN243 

244 IF 0=8 AND !*="NAIL" THEN F( 
3)=l:0B(8)=7:PRINT"0K, THE ROPE 
WAS TORN BY THE NAIL WHEN I R 
UBBED IT. ":G0T048 

245 PR I NT " NOTH I NG HAPPENED . " : GOT 
048 

246 ' *** CUT *** 

247 IF F(3)=0 THEN 381 

248 I NPUT "WITH WHAT" ; 14: G0SUB382 
: IF X>0THEN248 

249 IF 0=33 THEN 210 

250 IF 0=55 AND I *=" PLIERS" AND 
0B(24)=-1 THEN PRINT"OK, THE WIR 
E IS NOW CUT. ":0B(55)=7:EX*(49)= 
"THE WIRE HAS BEEN CUT. " : G0T048: 
ELSE PRINT"! CAN' T. " : G0T048 

251 IF 0=33 AND F=0 AND (I*="GLA 
SS" OR I *=" BROKEN GLASS") THEN I 
F OB (19)0-1 PRINT"! DON'T HAVE 
THE GLASS WITH ME. " I G0Ta48: ELSE 
IF 0B(19)=-1 THEN PR!NT"SOMETHIN 
G CAME OUT OF THE TORN PILLOW. " 
:0B<51)=7:EX«(27)="IT IS TORN.": 
60T04S 

252 PRINT"! CAN'T CUT !T.":G0T04 
8 

253 '*** REMOVE *** 

254 IF F(3)=0 THEN 381 

255 IF 0=9 AND F(2)=0 THEN F(2)= 
l:PRINT"OK, I DID. ": Y0U=2:G0T048 

256 PRINT" IT CAN'T BE REMOVED.": 
G0T048 

257 ' *»* FACE «-*♦ 

258 IF 0<1 THEN 172 

259 IF 0<7 THEN Y0U=0+1 : G0T037 

260 GOTO 172 

261 '*** GO *** 

262 IF F(2)=0 OR F(3)=0 THEN 281 

263 IF 0B(0)=0 THEN PRINT "I DON 
' T KNOW WHAT YOU MEAN ! " : G0T048 

264 IF 0B(0>=--1 THEN PRINT"! CAN 
'T, I'M CARRYING IT!":G0T048 

265 Y0U=0B(0) :PRINT"0K, I DID.": 
G0T048 

266 ' **♦ CONNECT *»* 
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267 IF F=0 THEN PRINT"! DON'T SE 
E THAT HERE. ":G0T04S 

268 INPUT"WHERE"; I*:G0SUB3B2: IFX 
>0THEN268 

269 IF 0=37 AND I *=" OUTLET" THEN 
PR I NT "OK, CORD IS NOW PLUGGED IN 
TO THEOUTLET. ":EX*<0-6)="IT'S PL 
UGGED IN.": IF LEFT* (EX* (23) ,2)=" 
CB" THEN F(9)=l:EX*(23)="CB IS R 
EADY TO GO ! " : G0T027 1 : ELSE60T0270 

270 IF 0=37 AND (I*="RIG" OR I*= 
"CB")THEN PRINT"OK, CB RIG NOW H 
AS THE CORD CONNECTED. ": IF L 
EFT*(EX*(29) ,4)="THE" THEN F(9)= 
l:EX*(23>="CB NOW HAS A CORD AND 

MIKE. ":G0T048 

271 IF F(15)=0THEN F(15)=l ELSE 
IF F(15)=l THEN F ( 15) =2: F (9) =1 

272 IF 0=55 THEN PR I NT "THAT WIRE 
WON'T DO ANY GOOD, IT HAS BEEN 

CUT INTO SMALL PIECES. ": G0T048 

273 IF 0=36 THEN PR I NT "OK, THE W 
IRE HANGER FIT NICELY INTO THE 



ANTENNA JACK ! " : F ( 16) =1 : G0T04a 

274 IF0=37 THENG0T048 ELSEPRINT" 
I CAN'T CONNECT THAT. " : G0T04S 

275 ' «** PUT *** 

276 IF F<>2THENPRINT"I DON'T HAV 
E IT. ":G0T048: ELSE INPUT" WHERE"; 
I * : G0SUB382 : I F X >0THEN276 

277 IF 0=43 AND I*="CAGE" THEN E 
X*(36)="I SEE A DOVE. ":OB(0)=0:F 
(5)=0:G0T0280 

278 IF 0=20 AND I *=" HOLE "THEN PR 
I NT "OK, THE HOLE IS NOW PLUGGED 
UP AND THE MOUSE CAN'T GET OUT. 
" : F ( 17) =1 : OB (39) =0: OB (20) =5: GOTO 
48 

279 PR I NT " I CAN ' T . " : G0T048 

280 PRINT"OK, I DID.":60T048 

281 PR I NT "I CAN'T DO THAT. "".GOTO 
48 

282 ' **#»*»*D I RECT I ONS****** 

283 DATA NORTH, SOUTH, EAST, WEST, U 
PjDOWN 

284 ' ******* ROOMS ******* 
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285 DATA IN THE MIDDLE OF A ROOM 
,0,0,0,0,0,0 

286 DATA FACING THE NORTH WALL,0 
,0,0,0,0,0 

287 DATA FACING THE SOUTH WALL,0 
,0,0,0,0,0 

288 DATA FACING THE EAST WALL,0, 
0,0,0,0,0 

289 DATA FACING THE WEST WALL,0, 
0,0, 0, 0, 0 

290 DATA LOOKING AT THE CEILING, 
0,0,0,0,0,0 

291 DATA LOOKING AT THE FLOOR, 0, 
0,0,0,0,0 

292 DATA END 

293 ' **«•♦*•* OBJECTS #*♦»» 

294 D AT ANORTH , NOR , O , SOUTH , SOU , O , 
EAST, EAS,0, WEST, WES, O, UP , UP ,0, 
DOWN, DOW, 0 

295 DATA A CHAIR, CHA, 2, THE CHAIR 
LOOKS RATHER FRAGILE. 

296 DATA A PIECE OF R0PE,R0P,7,I 
T'S JUST A REGULAR ROPE. 

297 DATA A BLINDFOLD, BLI , 7, IT' S 
JUST A PIECE OF CLOTH. 

298 DATA A NAIL, NAI , O, THE NAIL I 
S QUITE SHARP. 

299 DATA A DESK, DES, 2, IT' S THE T 
YPE WITH A ROLLOVER TOP AND HA 
S A LARGE DRAWER ON THE SIDE. " 

300 DATA A DRAWER, DRA, 0, THE DRAW 
ER IS LOCKED AND CAN'T BE OPENN 
ED. 

301 DATA A RADIO, RAD, 2, IT'S A PO 
RTABLE RADIO. 

302 DATA A BATTERY, BAT, 0, IT' S A 
12 VOLT BATTERY. 

303 DATA AN ELECTRIC OUTLET, OUT, 
0,IT'S A 120 VOLT OUTLET. 

304 DATA A DOOR, DOO, 3, IT' S LOCKE 
D FROM THE OUTSIDE. 

305 DATA A SWITCH ON THE WALL,SW 
1,3, IT'S A LIGHT SWITCH 

306 DATA A PICTURE, PIC, 3, IT' S A 
PICTURE OF A BOAT IN A NICE WO 
ODEN FRAME. 

307 DATA BROKEN GLASS, GL A, O, THE 
BROKEN GLASS IS VERY SHARP. 

308 DATA A ROUND BOX , BOX , O, THE B 
OX IS EMPTY. 

309 DATA A TOOLBOX , TOO, 4, IT' S MA 
DE OF METAL. 

310 DATA A CROWBAR, CRO,0, JUST A 
REGULAR CROWBAR. 

311 DATA A SCREWDRIVER, SCR, 0, IT' 
S THE REGULAR KIND. 

312 DATA A PAIR OF PLIERS, PLI , O, 
IT'S THE LONG NOSE TYPE. 

313 DATA A HAMMER, HAM, O, NOTHING 
SPECIAL ABOUT IT. 



314 DATA A WINDOW, WIN, 5, THE PANE 
S HAVE BEEN PAINTED. 

315 DATA ANTIQUE FURNITURE, FUR, 5 
, IT'S A BOOKCASE. 

316 DATA A BOOK, BOO, O, IT' S A BOO 
K ON CB RADIOS. 

317 DATA A CB RIG, RIG, 0, THERE IS 
A MICROPHONE ALREADY ATTACHED 
TO IT. 

318 DATA A SMALL RUG, RUG, 7, IT' S 
AN ORIENTAL RUG. 

319 DATA A LOOSE BOARD, BOA, O, IT 
SEEMS TO GIVE A LITTLE. 

320 DATA A COUCH, COU, 4, THERE ARE 
SOME PILLOWS ON IT. 

321 DATA PILLOW, PIL,0, IT FEELS R 
ATHER HEAVY. 

322 DATA A COAT RACK, RAC, 5, IT' S 
MADE OF METAL. 

323 DATA A COAT ON THE RACK,COA, 
5, IT'S A SPORTS COAT. 

324 DATA A HANGER ON THE RACK, HA 
N,0,JUST A REGULAR WIRE HANGER. 

325 DATA AN ELECTRIC CORD, COR, O, 
ONE END IS BARE AND THE OTHER 
END HAS A PLUG ON IT. 

326 DATA A MICROPHONE, MIC, O, IT I 
S ATTACHED TO THE CB SET ANDHAS 
A BUTTON ON IT. 

327 DATA A HOLE ON THE WALL,HOL, 
0, LOOKS LIKE IT WAS MADE BY A 

LARGE RAT. 

328 DATA A VAULT ON THE WALL,VAU 
,0, IT HAS A COMBINATION LOCK ON 
IT. 

329 DATA WALL, WAL, O, NOTHING SPEC 
lAL ABOUT IT. 

330 DATA A BIG BIRD CAGE,CAG,4,I 
T HAS A WHITE DOVE IN IT. 

331 DATA A WHITE DOVE, DOV, O, IT' S 
A SPECIAL TYPE DOVE- 

332 DATA A PIECE OF PAPER, PAP, O, 
THE CHARACTERS '4R8L12R' ARE 
WRITTEN ON IT. 

333 DATA A SET OF KEYS, KEY, 0,1 S 
EE SEVERAL SMALL KEYS. 

334 DATA A RED BUTTON, BUT, O, JUST 
A REGULAR BUTTON. 

335 DATA A FLOWER POT, POT, 3, SUNF 
LOWERS ARE GROWING IN IT. 

336 DATA SUNFLOWERS, SUN, O, THEY A 
RE KIND OF DRY. 

337 DATA SUNFLOWER SEEDS, SEE, 0, N 
OTHING SPECIAL ABOUT THEM. 

338 DATA A WOODBURNING STOVE, STO 
,4, IT'S A FRANKLIN STOVE. 

339 DATA A MAGNIFYING LENS,LEN,0 
,IT'S A SHERLOCK HOLMES OFFICIAL 

FAN CLUB LENS. 

340 DATA PIECES OF WOOD, WOO, O, NO 
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THINB SPECIAL. 

341 DATA PIECES OF CARDBOARD, CAR 
,0, NOTHING SPECIAL. 

342 DATA A BIRD FLYING AROUND, B I 
R,0, IT'S THE DOVE I SAW BEFORE. 

343 DATA WIRE, WIR, O, IT' S HOLDING 
THE DOOR CLOSED. 

344 DATA CAN OPENER, OPE, O, IT' S T 
HE HEAVY DUTY TYPE. 

345 DATA END 

346 ' ****** VERBS ****** 

347 DATA GET, DROP, OPEN, CLOSE, EXA 
MINE, PUSH, BREAK, ENTER, READ, TURN, 
RUN, SHAKE 

348 DATA UNTIE, FEEL, RUB, CUT, REMO 
VE, FACE, GO , CONNECT, PUT 

349 DATA END 

350 ' ***** SAVE/LOAD ******** 

35 1 G0SUB363 : OPEN " 0 " , DV , " DATA " 

352 PRINT#DV,YOU 

353 FOR X=l TO NO 

354 PRINT#DV,OB(X) 

355 NEXT X 

356 CLOSE: CLS:G0T037 

357 G0SUB363 : OPEN " I " , DV , " DATA " 

358 INPUT#DV,YOU 

359 FOR X=l TO NO 

360 INPUT#DV,OB<X> :NEXT X 

361 IF E0F(DV> THEN CLOSE 

362 CLS:G0T037 

363 CLS: PR I NT "INDICATE DEVICE TO 
BE USED: " 

364 PRINT: PRINT" C - CASSETTE 
D - DISK" 

365 PR I NT : I NPUT " YOUR CHO I CE " ; DV* 

366 IF DV*="D" THEN DV=1 ELSE IF 
DV*="C" THEN DV=-1 ELSE 365 

367 PRINT: PR I NT "PRESS ANY KEY WH 
EN THE DEVICE IS READY. " 

368 IF INKEY*=""THEN36S ELSE RET 
URN 

369 '***ELIMINATE OBJECT FROM 

370 ' OBJECT LIST 

371 MID* (OB*, 0*3-2, 3)=" 

372 RETURN 

373 ' *** FLAGS USED *** 

374 DATA RADIO OFF OR ON, BLINDF 
OLD ON OR OFF, HANDS TIED OR UNT 
I ED, WINDOW OK OR BROKEN 

375 DATA BIRD CAGE CLOSED OR OPE 
N,DESK LOCKED OR UNLOCKED, BIRD I 
N ROOM OR NOT IN 

376 DATA STOVE OFF OR ON,CB OFF 
OR ON, SWITCH OFF OR ON, ANTENNA 0 
FF OR ON, TOOL BOX LOCKED OR UNLO 
CKED 



377 DATA DOVE DID NOT LEAVE ROOM 
,CB RUNNING ON BATTERIES, CB RUNN 
ING ON ELECTRICITY, ANTENNA OFF 0 
R ON 

378 DATA HOLE NOT PLUGGED OR PLU 
GGED,CORD NOT CONNECTED OR CONNE 
CTED 

379 DATA END 

380 PR I NT "I DON'T SEE ANYTHING L 
IKE THAT AROUND HERE. " : G0T04S 

381 PR I NT "I CAN'T, MY HANDS ARE 
TIED WITH A ROPE. ":G0T048 

382 X=INSTR(I*," "):IF X>0 THEN 
PR I NT: PR I NT "PLEASE, ANSWER WITH 
ONE WORD - ": PR I NT : RETURN : ELSE RET 
URN 

383 PRINT@482, "<PRESS ANY KEY TO 
CONTINUE>"; 

384 IF INKEY*=""THEN3S4 ELSE RET 
URN 

385 IF BT03 THEN 392 

386 SOUND 100, 10 

387 CLS: PRINT" RADIO ANNOUNCER I 
NTERRUPTS THE PROGRAM ! " 

388 PRINT: PRINT" A TRUCK STOP HA 
S BEEN HELD UP. ONE OF THE TRUC 
K DRIVERS HAS BEEN KIDNAPPED. 

II 

389 PR I NT: PR I NT" THERE ARE HUNDR 
EDS OF TRUCK- DRIVERS SEARCHI 
NG AROUND FOR THEIR FRIEND." 

390 PRINT: PRINT" IF YOU HAVE A C 
B SET, TURN IT ON AND LISTEN T 
0 THE ACTION! " 

391 RETURN 

392 IF BT05 THEN PR I NT "I HEAR M 
USIC COMING FROM THE RADIO.": 
RETURN 

393 S0UND200, 10 

394 CLS: PRINT" RADIO ANNOUNCER I 
NTERRUPTS THE PROGRAM. " 

395 PRINT: PRINT" THE SEARCH FOR 
THE KIDNAPPED TRUCK DRIVER CO 
NTINUES. " 

396 PR I NT: PR I NT" HIS SEMI TRUCK 
WAS FOUND IN AN ABANDONED RO 
AD. THERE IS SPECULATION HE 
MAY NOT BE ALIVE. " 

397 RETURN 

398 IF OB (54)00 OR OB (43) 00 T 
HEN PR I NT "THE DOVE FLEW AWAY THR 
OUGH THE BROKEN W I NDOW . " : OB ( 54 ) 

=0: OB (43) =0: F ( 13) =1 : return 

399 return 

400 GOTO 48 

401 PCLEARl:G0T02 




Jean Roseborough 
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One day you wake up, get ready for a hectic 
day of work, open your front door and 
instead of seeing the famihar world outside, 
find a large door in front of you. 

The first thing you do is pinch your arm to 
awaken from this bewildering and somewhat fright- 
ening dream. You realize you are awake and ques- 
tions flood your mind. What happened to the 
world — or, what happened to me? Is this a bad joke 
by your neighbor or has the world been taken over 
by . . . giant doors? Wait a minute, is this the 
Twilight Zone? No, this must be something 
pleasant — it has to be. As the minutes pass, an 
insatiable yearning to open the door grows. What's 
on the other side? A wish to be granted? Eternal 
life? A new car? All the riches you have ever 
dreamed? Or, is it the secret to winning all adven- 
ture games? 

Using the koorknob, door knocker, bell or but- 
ton, there are 44 random ways to open The Door 
and see what awaits you. You must use verb-noun 
combinations, such as "turn knob," and you can 
have as many tries as you desire. 

The Door, while excellent for children because of 
its simplicity, is a challenge for everyone. What's 
behind The Door? Only CoCo knows. 





4K 








The listing: 



1 DIM A*<45) 

2 CLS: INPUT "HOW MANY TRIES"? MAX 

3 IF MAX<10 THEN PRINT"YOU'LL NE 
VER MAKE IT!" ELSE IF MAX>50 THE 
N PRINT"YOU'VE GOT BE KIDDING!" 

4 S0UND200, 5: X=RND (44) : G0T023 

5 CLS 

6 PR I NT "YOU ARE STANDING IN FRON 
T OF A LARGE DOOR. YOU CAN SEE 

7 PR I NT: PR I NT" A DOOR KNOB" 

8 PRINT" A DOOR KNOCKER" 

9 PRINT" A BUTTON" 

10 PRINT" A BELL" 

11 PRINT" 



12 A*="": PR I NT "WHAT SHOULD I DO? 



13 I*=INKEY* 

14 IF I*=CHR*(S) 



THEN PRINT: PR I 



NT "SORRY, NO MISTAKES ARE ALLOWE 
D IN THIS QAME!":F0R D=1T0500:N 
EXTD:G0T05 

15 PRINT I*;: IF I*<>CHR*<13) THE 
N A*=A*+I*:60T013 

16 T=T+l:IF T=MAX THEN 30 

17 G0SUB44 

18 IF A*<X>=A* THEN 25 

19 CLS: PRINT "I TRIED TO "A*"... 



20 PRINT " BUT NOTHING HAPPE 

NED. " 

21 PRINT"YOU ONLY HAVE"MAX-T"TIM 
ES LEFT ! " 

22 PRINT: G0T06 

23 1=0 

24 I=»I + l:READ A*<I>:IF A*<I><>"E 
ND" THEN24:ELSE G0T05 

25 REM *** PLAYER WINS **** 

26 CLS: PRINT" THE DOOR OPENS 



27 PRINT ©232, "CONGRATULATIONS" 



(Jean Roseborough holds a B.S. degree in education 
for the deaf and recently purchased a CoCo. The Door 
is her first computer program. She collects adventures, 
which are her favorite form of computer games.) 



28 PRINT 6288, "YOU HAVE JUST WO 
N THE WORLD'S SHORTEST ADVENTU 
RE GAME. THERE ARE 43 OTHER POS 
SIBLE SOLUTIONS. PRESS < ENTER > IF 

YOU WISH TO TRYAGAIN. " 

29 INPUT E*:IF E*="" THEN RUN EL 
SE END 

30 REM *** RAN OUT OF TURNS ** 

31 CLS 

32 PRINT ©256, "A LOUD EXPLOSION 
IS HEARD "; 
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33 FOR D=1T0700 

34 NEXT D 

35 CLSIFOR D=1T0700:NEXTD: PRINT" 
PRESS < ENTER > IF YOU WISH TO 
PLAY AGAIN" 

36 60T029 

37 DATA KNOCK DOOR, POUND DOOR, K I 
CK DOOR, TAP DOOR, PULL DOOR, BREAK 

DOOR, RAM DOOR, BATTER DOOR, OPEN 
DOOR 

38 DATA RING BELL, J INGLE BELL, T I 
NKLE BELL, SHAKE BELL, CLANG BELL, 
SOUND BELL, PEAL BELL, TOLL BELL,K 
NELL BELL 

39 DATA PRESS BUTTON, PUSH BUTTON 
, SHOVE BUTTON, BUZZ BUTTON, PROD B 
UTTONjPOKE BUTTON, LEAN BUTTON, JA 
B BUTTON 



THUMP KNOCKE 
KNOCKER, SLAM 
ER 

41 DATA TWIST KNOB, TURN KNOB, RAT 
TLE KNOB, JIGGLE KNOB, JERK KNOB,R 
OTATE KNOB, GRASP KNOB 

42 DATA WHISPER PASSWORD , CLAP HA 
NDS, SCREAM, CRY 

43 DATA END 

44 Z*=LEFT*(A*,3) 





Scott Slomiany 
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ood ole Dr. Avaloe! It's been years since 
you've seen him. You desperately hope he 
still remembers you when he interviews you 
for his lab assistant job. Don't let those strange 
rumors about him bother you now — especially 
since jobs are so hard to find. 

You step into his office and extend your hand 
only to wince from his cold and moist handshake. 
You wipe off that sweat and start talking. It's hard 
trying not to pay attention to his uncontrolled cack- 
ling and the way he snarls and mutters words. Your 
spine tingles as he says, "What a fine specimen, uh, 
I mean applicant." 

Still, after a hard swallow you decide to accept 
the position as his lab assistant and help him with 
an unusual experiment ... it seems harmless, any- 
way. But, why does he want to test you on your 
physical and mental qualities? 

The doctor leads you down a dingy corridor 
which smells from formaldehyde, and gently but 
decisively pushes you into a dark room. With a 
snicker, he slams the door and you stagger around 
trying to let your eyes grow accustomed to the dark. 

What are you doing in this dark room? Yelling 
for Dr. Avaloe doesn't help at all . . . where has he 
gone? Wait, didn't he mutter something about a 
maze? What are you bumping into? Maybe the 
doctor really is nuts! You can hear Dr. Avaloe's 
frenzied laugh getting closer . . . 

This is a two-program Adventure. CLOAD List- 
ing 1 (the instructions) and RUN. Press 
after reading the instructions and Listing 2 will 
automatically load. Because of a bug in liASIf:, it 
may be necessary to type7?6iVand [ENTER] twice 
on Listings 2 and 3. 



(il — li) 




16K 






ECB 


J- -V- 






+DR. AVALOE+" 
*»***♦**«■* " 

RULES: 
REPRESENTS YOU. " 
GO' WITH 



10 CLS 
20 PRINT" 
30 PRINT" 
40 PRINT 
50 PRINT" 
60 PRINT"! . ' 

70 PR I NT "2. REPLACE 'GO' WITH ' LO 
OK' . " 

SO PR I NT "3. TWO WORD COMMANDS. IN 
A VERB- NOUN FORMAT. EX: LOOK 
DOOR" 

90 PR I NT "4. ALWAYS PROOFREAD." 
100 PR I NT "5. ALL WORDS MUST BE >3 

LETTERS. " 
110 PR I NT "6. REPLACE 'UP' WITH 'C 
LIMB' . " 

120 PR I NT "7. IF WALL HAS WORDS, US 
E 'READ WORDS' jAPLIES WITH A 

NYTHIN6. " 



130 PRINT: INPUT"HIT ENTER"; OP 
140 CLS 

150 PRINT" +DR. AVALOE+" 

160 PRINT" #*«***»«•»*" 
170 PRINT: PRINT" RULE 
S: " 

ISO PRINT"S. DON'T DO STUPID THIN 

GS. EX: EAT DOOR" 

190 PRINT"9. CAN'T CARRY OR PICK 

UP THINGS IN 1ST PROGRAM. " 

200 PRINT" lO. FIND THE FIVE CLUES 

TO HELP YOU ESCAPE. " 

210 PRINT" 11. THE CLUES WILL BE 

NUMBERS. YOU WILL HAVE TO DE 
CIPHER THEM TO GET OUT. " 

220 PRINT: INPUT "HIT ENTER"; OP 
230 CLS 

240 PRINT" +DR. AVALOE+" 

250 PRINT" ********»*" 
260 PR I NT: PR I NT" RULE 
S: " 

270 PRINT" 12. SOME ROOMS HAVE DIF 
FERENT I NSTRUCT I ONS . FOLLOW 

THEM ONLY IN THAT ROOM. " 
280 PRINT" 13. A SONG WILL ALWAYS 
BE PLAYED WHEN YOU LEAVE A RO 
OM. " 

290 PR I NT "14. IF YOU DON'T FOLLOW 
SOME OF THESE RULES, AN ERRO 

R WILL APPEAR. " 

291 PRINT: INPUT"HIT ENTER";TB:CL 

S 

292 PRINT" *DR. AVALOE*" 

293 PRINT" ♦****#**»*" 

294 PRINT" BASIC THINGS" 

295 PRINT: PRINT" THIS IS A TWO P 
ROGRAM ADVEN- TURE THAT WAS DO 
NE ON A 16K EX- TENDED BASIC MAC 
HINE.IT TOOK ABOUT A MONTH TO 

COMPLETE. " 

296 PRINT" ONCE YOU LEAVE A ROOM 
,YOU CAN- NOT GO BACK TO IT." 

297 PRINT: INPUT"HIT ENTER";DP:CL 
S 

320 PRINT" +DR. AVALOE+" 

330 PRINT" ******»*»*•" 
340 PRINT" LOADING" 
350 PRINT" INSTRUCTIONS" 
360 PR I NT: PR I NT "PRESS < ENTER > TO 

BEGIN LOADING OF PROGRAM 1." 
370 PRINT" IT IS A LONG PROGRAM I 
N ASCII FORMAT, SO BE PATIENT." 
375 PRINT" ONCE LOADING IS START 



(Scon Slomiany is a 16-year-old junior at Downer's 
Grove South High School in Downer's Grove, III. His 
school activities include soccer and music, as he is a 
bassoonist in the symphonic band. Scot I plans a career 
in the entertainment field.) 
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ED, THE SCEEEN WILL GO BLACK. A 

FTER LOAD-ING IS DONE, TYPE: RUN. T 

HEN PRESS < ENTER >. " 

380 IF INKEY*="" THEN 380 

390 CLSO:CLOAD 




230 02BC 1130. . . 112B 

440 0597 1360. . . 15C0 

670 090C 1600. . .1AAB 

900 0DA3 END. . . 1E74 



Listing 2 

1 0 CLEAR : PCLE AR 1 : CLEAR300 

20 P*="P0SITI0N: ":CLS 

30 PRINT" GOOD MORNING, I AM DR. 

AVALOE. YOU ARE HERE FOR TEST I 

NG.WE ARETESTING YOU ON YOUR PHY 

SICAL ANDMENTAL QUALITIES. IF YOU 

DON'T WANT TO TRY, I HAVE OTHE 
R EXPERI-MENTS WHICH I COULD USE 

A HUMAN SPECIMEN FOR. YOU JUST H 
AVE TO GOTHROUGH A LITTLE 
40 PRINT" MAZE OF ROOMS .": PR I NTS 
458, "HIT ANY KEY" 

50 PLAY " V3 1 T202L4C0 1 L8A02L4D0 1 A " 

60 IF INKEY*<>""THEN 100 

70 PLAY"L8B02C01A02L4D01A" 

80 IF INKEY*<>"" THEN 100 

90 FJ=l:G0T070 

100 FOR X=l TO 10 

110 READ V*<X> 

120 NEXT 

130 DATA LOO,OPE,CRA, JUM,CLI,WAL 

,REA,HEL,TOU,LIS 

140 FOR X=l TO 10 

150 READ N*(X) 

160 NEXT 

170 DATA DOO,HOL,ROO,DIA,COI,WAL 

,SAY,WOR,BOT,STA 

180 XS=57 

190 GOTO 240 

200 CLS<0> 

210 FOR X=0 TO 63:SET<X,31, 1) :SE 
T<X,0, 1) :NEXT 

220 FOR X=0 TO 31 : SET (63, X , 1 > : SE 
T(0,X, 1) INEXT 
230 RETURN 
240 60SUB 200 
250 Z=l 

260 PRINTSXS, "*"; 

270 PR I NTe24 , "door " ; 

280 PR I NTe353 , " c " ; : PR I NT@385 , " o " 

,- :PRINTe4l7, "t"; 

290 PRINT@171, "ho"; :PRINT@203, "1 
e"5 

300 GOSUB 1730 

310 PRINTP*:PRINT"A room WITH A 
COT, HOLE, AND A DOOR THAT YOU' 



VE JUST BEEN THROWN INTO. " 

320 GOSUB 1750 

330 IF V1*=V«<1) AND N1*=N*(2) T 
HEN PR I NT " LOOK ' S DEEP . " : X S-205 : G 
OT0420 

340 FOR X=2T03STEP2 

350 IF (V1*=V*<X> OR V1*="D0W") 

AND N1*=N*(2) THEN PR I NT "DOWN WE 

GO. ":60T0430 
360 IF N1*=N*<1) THEN PRINT" IT'S 

LOCKED AND UNBREAKABLE. ": XS=57: 
G0T0420 

370 IF V1«=V*<8) THEN PRINT"OLEH 
A": GOTO 420 

380 IF N1*="C0T" THEN PRINT" IT'S 
NAILED TO THE FLOOR AND UNBR 
EAKABLE. " : XS=418: G0T0420 
390 IF N1*="FL0" OR N1«=N*(6) TH 
EN GOSUB 1840 

400 FOR X=l TO 10: IF Vl*=V*<X) O 
R N1*=N*(X) THEN PRINT" YOU CAN'T 
" : G0T0420 

410 NE X T : PR I NT " ??WH AT?? " : G0T0420 

420 GOSUB 1730:G0T0240 

430 PLAY " T 1 0L405FP 1 OE-P 1 ODP 1 OD-P 

10L2C": Z=2 

440 XS=136 

450 GOSUB 200 

460 PRINTSXS, 

470 PRINTe224, "d"; 

480 PR I NTe256 , " o " j 

490 PR I NTe288 , " o " ; 

500 PR I NTe320 , " r " ; 

510 FOR X=0 TO 50:SET(X, 11, 1) :SE 
T<X,24, 1) :NEXT:F0R E=50 TO 63: SE 
T<E,24, 1) :NEXT 

520 S=S+l:IF S=l THEN GOSUB 1730 
ELSE 550 

530 CLS:PRINTP*; "A ROOM WITH DOO 
R AND A WALL IN YOUR WAY.":PRIN 
T"USE ARROW KEYS TO MOVE. BUT WAT 
CHOUT FOR INVISIBLE CREATURES TH 
ATCHASE YOU, SO BE AS QUICK AS YO 
U CAN . " : PLAY " T 1 004L4CP5FP20CP5FP 
20E-P20DP20L 1 C " : GOSUB 1 730 
540 GOTO 450 

550 A«=INKEY*: IF A*="" THEN 550 
560 PRINTdXS, CHR*( 143+32) ;: IF A* 
= "■'"" THEN XS=XS-32 

570 IF A*=CHR*(10) THEN XS=XS+32 
580 IF A*=CHR*(9> THEN XS=XS+1 
590 IF A*=CHR*<8> THEN XS=XS-1 
600 PRINTSXS, "*"; 

610 IF XS<32 OR XS/32=INT ( XS/32> 
OR XS>364 0R<XS>160 AND XS<160+ 
26) THEN SOUND 50, 50: CLS: PR1NT"RA 
N INTO AN ELECTRIC WALL ! ! " : GOTOl 

820 

620 IF XS=128+21 OR RND(70)<2 TH 
EN CLS: PRINT" INVISIBLE MONSTER G 



75 



OT YOU. ": GOTO 1820 

630 IF XS=195 OR X 3=355 0RXS=227 
OR XS=259 OR XS=291 OR XS=323 T 
HEN CLS:PRINT"YAHHH! !A TRAP DOOR 
! ! ! " : G0T0650 
640 GOTO 550 

650 PLAY " 05L4FP5CP504FP5C03P5L2F 

■ I 

660 XS=192+15 

670 A*=INKEY* 

680 G0SUB200 

690 FOR X=173 TO 177 

700 PRINT@X,CHR*<143> 5 

710 NEXT 

720 FOR X=192+13 TO 192+17: PRINT 
@X,CHR*< 143) ; :next 

730 FOR X=224+13T0224+17:PRINTeX 
,CHR*(143) ; :NEXT 

740 IF P=2 THEN PRINT@194, "stai r 
way"; else PRINT@77, "water " ; : PRl 
NTe429, "water"; 
750 PRINTOXS, 

760 PRINT@224+12, "keyl rPRINTSl 
60+17, "key2"; 

770 GOSUB 1730:PRINTP*: IF P=2 TH 
EN PR I NT "A STAIRWAY BY YOU AND 2 
KEYS. "ELSE PR I NT "ON AN ISLAND, I 
N THE MIDDLE OF A POOL OF WATER. 
NEXT TO YOU ARE 2 KEYS. " 
780 GOSUB 1750 

790 IF V1*=V*(1> AND N1*="WAT" T 
HEN PR I NT "THERE ARE DEADLY FISH 
SW I MM I NG ABOUT . " : G0T0970 
800 FOR X=4 TO 6: IF <V1*=V*(X> O 
R V1«="INT") AND N1*="WAT" THEN 
PRINT"YDU HAVE JUST BEEN EATEN. " 
: GOTO 1820 

810 IF V1*=V*(8> THEN PRINT"GET 

RID OF A KEY. ":G0TD970 

820 IF V1*="THR" AND N1*="KEY" T 

HEN PR I NT "THE WATER IS DRAINED." 

:P=2:G0T0970 

830 IF V1*="D0W" AND N1*="STA" A 
ND P02 THEN PR I NT "MAN-EAT I NG Fl 
SH HAVE JUST DINED ON YOU.": GOTO 
1820 

840 IF V1*="D0W" AND N1*="STA" A 
ND P=2 THEN PR I NT "SO EASY, HUH?": 
GDT0980 

850 IF V1*=V*<1> AND N1*="GR0" T 
HEN PRINT"A SAYING. ": G0T0970 
860 IF (V1*=V*<1) OR V1*=V*(7>) 
AND N1*=N*(7) THEN PRINT" IT READ 
S:L00K at THE KEYS. ":G0T0970 
870 IF V1*=V*(1> AND N1*="KEY" T 
HEN PR I NT "THEY BOTH HAVE WORDS O 
N THEM. ":G0TD970 

880 IF <V1*=V*<1) OR V1*=V*<7)) 
AND N1*=N*(8) THEN PR I NT "THEY BO 
TH SAY: GET RID OF ME.":Q0T0970 



890 IF V1*=V*(1) AND N1*="STA" T 
HEN PRINT" IT GOES DOWN. ": XS= 160+ 
9:G0T0970 

900 IF N1*=N*(6) THEN GOSUB 1840 

910 FOR X=l TO 10 

920 IF N1*=N*(X) THEN 960 

930 IF V1*=V*(X> THEN 960 

940 NEXT 

950 PRINT"??WHAT??":G0T0970 

960 PR I NT "YOU CAN'T DO THAT." 

970 GOSUB 1 730 :G0T0680 

980 PLAY " 05T5L2FL4EL2E-L6DD~C04L 

2B" 

990 XS=197 
1000 GOSUB 200 

1010 PRINTei60+16, "dia"; :PRINTei 

92+16, "mon"5 : PRINT@224+17, "d"; 

1020 PRINTeXS, "»"; 

1 030 PR I NTe288+9 , " 1 ever " ; 

1 040 PR I NTe52 , " c arpet " 5 : PR I NT(i84 

, "carpet" ; 

1050 GOSUB 1730 

1060 PR I NTP*: PR I NT "STAIRWAY DISA 
PPEARS WHEN YOU SETOFF OF IT. THE 
RE IS A DIAMOND, LEVER, AND A C 
ARPET HERE. " 
1070 GOSUB 1750 

1080 IF N1*="WAL" THEN PRINT"A S 
AYING" : XS=194: G0T01240 
1090 IF V1*=V*(1> AND N1*="LEV" 
THEN PR I NT "AH HA! ! SOME WORDS! !" 
: XS=267: GOTO 1240 

1100 IF (V1*=V*<7) OR V1$=V*<1)> 
AND Nl*=N*<a) THENPRINT"THEY SA 
Y:PULL me, I DARE YOU T0.":XS=267 
:G0T01240 

1110 IF V1*="PUL" AND N1*="LEV" 
THEN PR I NT "THE DIAMOND SPEAKS: TH 
E CARPET! !": XS= 192+1 5: GOTO 1240 
1120 IF V1*<>V*<1) AND N1*=N*(4) 

THEN PR I NT "THE ROOM COMES CRASH 
ING IN ON YOU. ": GOTO 1820 
1130 IF V1*="SIT" AND N1*="CAR" 
THEN PR I NT "YOU ARE RISING TO THE 

ROOM. A HOLE OPENS UP. YOU ARE 

NOW IN A NEW ROOM. ": GOTO 1250 
1140 IFV1*=V«(1) AND N1*="CAR" T 
HEN PRINT"INPRINTED WORDS: ITS OW 
ND ! " : XS=5 1 : GOTO 1 240 
1150 IF (Vl*=VfKl) OR V1*=V*(7)) 

AND N1*=N*<7> THEN PRINT" IT SAY 
S:LOOK LEVER. ": XS= 193: GOTO 1240 
1160 IF V1*<>"SIT" AND N1*="CAR" 

THEN PR I NT "THE DIAMOND TURNS YO 
U INTO FLAM- ING DEATH !": GOTO 1820 
1170 IF (V1*<>"PUL" OR V1*<>V*(1 
)) AND N1*="LEV" THEN PR I NT "YOU' 
VE BEEN ELECTROCUTED! ! ":G0T01 820 
1180 IF V1*=V*(1) AND N1*=N*(4) 
THEN PRINT" IT'S VERY BIG!!":XS=2 
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O7:B0T0124O 

1190 IF V1*="HEL"THENPRINT"TRY T 
HIS BY YOURSELF. ": GOTO 1240 
1200 FOR X=1T010 

1210 IF V1«=V*(X) OR N1*=N*(X) T 
HEN PR I NT " CAN ' T . " : GOTO 1 240 
1220 NEXT 

1230 PRINT"??WHAT??" 

1240 GOSUB 1730: GOTO 1000 

1 250 PLAY " T305L8C04AL4GL4EP505L8 

C04AL4BL3EP 1 005L8EDL4C04 AAL2A " 

1260 XS=87 

1270 GOSUB 200 

1280 PRINTei66, "bot"; :PRINTei98, 
"tie"; : IF 0X=2 THEN PRINTSS, "doo 
r"i 

1290 PRINTe224+22, "co" ; : PRINTe25 

6+22, "in"; 

1300 PRINTQXS, "*"; 

1310 GOSUB 1730:PRINTP*:PRINT"TH 
E CARPET GOES POOF , DEPOS I T I NG YO 
U IN A ROOM WITH A BOTTLE AND A 
COIN.": GOSUB 1750 
1320 IF N1*=N*<9) THEN XS= 128+6 
ELSE IF N1*=N*<5) THEN XS=245 EL 
SE IF N1*=N*(6) THEN XS=193ELSE 
IF N1*=N*(1) THEN XS=39 
1330 IF V1*=V*(8) THEN PRINT"CHR 
ISTEN A BOAT. ": GOTO 1480 
1340 IF V1*=V*(1) AND N1*=N*(9) 
THENPRINT"IT HAS A PIECE OF PAPE 
R IN IT. ":B0T01480 
1330 IF Vi*="BRE" AND Ni*=N*<9> 
THEN PRINT" IT SHATTERS, REVEALING 
A CLUE: 323": GOTO 

1480 

1360 IF V1*=V*(1> AND N1*=N*(5> 
THEN PRINT" IT LOOKS LIKE A BUTTO 
N. ": GOTO 1480 

1370 IF (V1*="PUS" OR V1*="PRE") 
AND N1*=N*(5) THEN PR I NT "A DOOR 
IS REVEALED. ":0X=2: GOTO 1480 

1380 IF V1*=V*<1> AND N1*=N*(1) 

THEN PRINT" IT SEEMS UNLOCKED. ":G 

0T01480 

1390 IF N1*=N*(5) THEN PRINT"UH 
OH! THE ROOM IS BEING FILLED WIT 
H MOLTEN LAVA! ! ":60T0 1820 
1400 IF N1*=N*(6) THEN PRINT"THE 
RE'S NOTHING ON IT AND IT'S HAR 
D. ": GOTO 1480 

1410 IF(V1*="PUL" OR V1*=V*(2)) 
AND N1*="D00" THEN PRINT"ANOTHE 
R ROOM! ! ": GOTO 1490 

1420 IF N1*="D00" THEN PR I NT "THE 
WALLS CLOSE UP ON YOU. THEY DID 
N'T LIKE THAT. ": GOTO 1820 
1430 IF V1*="PUS" AND N1*=N*<1> 
THEN PR I NT "YOU HAVE TO PULL IT." 
: GOTO 1480 



1440 FOR X=l TO 10: IF V1*=V*<X> 
OR N1*=V*(X) THEN 1470 
1450 NEXT 

1 460 PR I NT " ??WHAT?? " : GOTO 1 480 
1470 PR I NT "SORRY, YOU CAN'T DO TH 
AT! " 

1480 GOSUB 1730: GOTO 1270 

1 490 PLAY " V3 1 T404L4CEABECB05C04E 

C05C04F#D03A04FEC03A04L2CL4EC03A 

GAL2A" 

1500 XS=452 

1510 GOSUB200 

1520 PRINTei66, "dead"; :PRINTei98 
, "body"; 

1 530 PR I NT@320+ 18," mag " ; : PR I NTe3 
52+18, "azi "; :PRINTe384+19, "ne"; 
1540 PRINTSXS, "*"; 

1 550 GOSUB 1 730 : PR I NTP* : PR I NT " THE 
DOOR DISAPPEARS. THERE IS A ' DE 
AD' BODY AND A MAGAZ INE. " : GOSUBl 
750 

1560 IF Nl*="BOD" THEN XS= 128+8 
ELSE IF <N1*="MAG"0R N1*="PA1") 
THEN XS=352+17ELSE IF N1*="WAL" 
THEN XS=257 

1570 IF V1*="L00" AND N1*="MAG" 
THEN PRINT" IT IS A SPLUNKER MAGA 
ZINE WITH 10 PAGES. ": GOTO 1700 
1580 IF V1*="L00" AND N1*="B0D" 
THEN PRINT" IT IS A DEAD BODY.":G 
OT01700 

1590 IF V1*="HEL" THEN PR I NT "CHE 
CK OUT THE PAGES. EX :PA1 MEANSPAG 
E ONE. ": GOTO 1700 

1600 IF N1»="PA8" THEN PRINT"A 

CLUE: 405, AND SOME WORDS: SEARCHTH 

E BODY. ": GOTO 1700 

1610 IF V1*="SEA" AND N1*="B0D" 

THEN PR I WT" THE BODY TALKS: I AM D 

R. AVALOE'SLAST EXPERIMENT. LOOK 

IN MY HAND. ": GOTO 1700 

1620 IF V1*="L00" AND N1*="HAN" 

THEN PR I NT "HE KNOCKS ^'OU OUT!!": 

G0T01710 

1630 IF N1*="B0D" THEN PR I NT "NOT 
HING"; :G0T01700 

1640 IF N1*="MAG" THEN PRINT" IT 
WON ' T BUDGE . " : GOTO 1 700 
1650 IF V1*="L00" AND N1*<>"PA8" 
THEN PR I NT "NOTHING OF INTEREST, 
": GOTO 1700 

1660 IF V1*="L00" THEN PR I NT "NOT 
HING. ": GOTO 1700 

1670 FOR X=l TO 10: IF V1*=V*(X) 
OR N1*=N«(X) THEN PR I NT "YOU CAN' 
T. ": GOTO 1700 
1680 NEXT 

1690 PRINT"??WHAT??" 

1700 G0SUB1730:G0T01510 

1710 PLAY " T3L804 A#DDA#L2A#P30LSD 
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DA#A#DD#DCCCAL2A " 

1720 CLS:PRINT"Y0U ARE NOW READY 
TO START TAPE TWO. PRESS << ENTER 

>> TO LOAD.": INPUT Y:CLSO:CL0AD 

1730 PRINT@45S, "HIT ANY KEY"; 

1740 IF INKEY*="" THEN 1740 ELSE 
CLS: RETURN 

1750 PR I NT "WHAT DO YOU DO." 

1760 INPUT Q* 

1770 V1*=LEFT*<Q*,3) 

1780 FOR T=(LEN(Q«)-2) TO 1 STEP 
-1 

1790 IF MID$(Q*,T, 1)=" " THEN Nl 
*=MID*(Q*,T+1,3) ELSE NEXTT 
1800 RETURN 
IBIO G0SUB1730 

1 820 PLAY " 04T4L8FP 1 0F#P20GP 1 0B#P 
30AP30B-P30L2BB-B " 

1830 PR I NT "YOU HAVE DIED A SORRO 
WING DEATH. I HOPE YOU HAD FUN,TH 
0U6H. ":PRINT:PRINT"Y0U WANT TO S 
TART ANOTHER GAME? (Y>ES OR (N)0 
.": INPUT Q*:IF Q*="Y" THEN 10 EL 
SE END 

1 840 PR I NT " NOTH I N6 " : RETURN 
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650 .. . 
920 .. . 
1200. . 
1510. . 
END . . 
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10 XS=377:CLS 

20 P*=" CONTENTS: " 

30 PRINT" +DR. AVALOE + '" 

40 PRINT" 

50 PRINT" PROGRAM 2" 

60 PRINT: PR I NT "YOU CAN CARRY 1 I 
TEM NOW. BUT WHEN YOU GET RID 
OF IT, IT D I SAP-PEARS. REMEMBER AL 
L OTHER RULES. TYPE 'START' TO S 
TART PROGRAM OVER. YOU CANNOT G 
0 BACK TO PRO. 1" 

70 FOR T=l TO 2:PLAY"V3103LaAL40 
4C03L8A04L4DC" : NEXT 
80 G0SUB1440 
90 GOTO 130 

100 CLS0:FORX=0TO31:SET<0, X, 1) :S 
ET(63,31-X, 1) :NEXT 

110 F0RX=0T063:SET<X,31, 1) :SET<6 
3-X,0, 1) :next 
120 RETURN 
130 GOSUBIOO 

140 PRINT(1!128, "d"? :PRINT@160, "o" 
; :PR1NT@192, "o"; :PRINT(i224, "r"; 
150 PRINTdlS, "cabinet"; :PRINT@20 



2, "couch"; :PRINTexs, "*"; 

160 G0SUB1440:PRINTP*:PRINT"A CA 

B I NET , DOOR , AND COUCH . " : GOSUB 1 470 

170 IF N=1THEN XS=161ELSE IF N*= 

"CAB" THEN XS=53ELSE IF N*="COU" 

THENXS=236ELSE IF N*="KEY"THENXS 

=53 

180 IF V=1ANDN*="CAB"AND K=0THEN 

PRINT"A KEY ! ! " : G0T0340 
190 IF N=3THENPRINT"N0THING! ":G0 
T034O 

200 IF V=6AND N*=" KEY "THEN K=1:P 
R I NT "YOU HAVE THE KEY. " : H*="KEY" 
: G0T0340 

210 IF V«="UNL" AND N«=1THENPRINT 

"IT WON'T OPEN. ":GOTO340 

220 IF V=l AND N=1THENPRINT" IT' S 

LOCKED ! " : GOT0340 
230 IF V=l AND N*="COU"THEN PR IN 
T"IT OLD AND APPEARS COMFY.": GOT 
0340 

240 IF N*=="COU"THENPRINT"IT HAS 

YOU FOR DINNER. ": GOTO 170O 

250 IF V=3 THEN PRINT"ATCH UT OR 

HE OUCH. ":G0T0340 
260 IF V*="BRE"AND N*=" CAB "THEN 
PR I NT "A MESSAGE : KD I OCOKR " : G0T034 
O 

270 IF V*="KIC" AND N=l THEN2S0E 
LSE310 

280 FOR X=l TO 20: SOUNDIOO+X , 5: P 
RINT<i4aO+X, "POOOF! ":NEXT 
290 FOR X=l TO 20: SOUND150+X , 1 : P 
RINT@4S0+X, "A NEW ROOM.": NEXT 
300 G0T0350 

310 IF V*<>"KIC"AND N=1THENPRINT 

" YOUR ELECTROCUTED ! " : GOTO 1 700 

320 IF V=80RN=3THEN340 

330 GOSUB 1660 

340 GOSUB 1440: GOTO 130 

350 CLSO : FOR D=0 T03 1 : SET ( 23 , D , 1 

) : SET (35, 31 -D, 1) :NEXT 

360 PRINT@13, "fan"; : PRINT@12+32, 

"blade"; 

370 GOSUB 1440 

380 CLS 

390 PRINT" THE DOOR DISAPPEARS. Y 
OU ARE BEING SUCKED UP INTO A 

SPINNING FAN. EVER YT I ME YOU MOVE 

UP A STEP YOU WILL ENTER A THREE 

LETTER WORD. " 
400 PR I NT "YOU WILL ENTER BY TYPI 
N6 INTHE LETTERS, ONE AT A TIME. 
THERE WILLBE A SOUND HEARD EVERY 
TIME YOU HIT A KEY, WITH INCREAS 
ING PITCH. IF IT'S WRONG, YOU WILL 

BE TOLD BY ANOTHER SOUND. THEN, 
START OVER. " 

410 PRINT" IT IS AN ITEM THAT YO 
U MIGHT HAVE. YOUR LAST WORDS P 
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LEASE. " 

420 INPUT W*:IF LEFT*(W*,2)="HE" 
THENPRINT"DOORS AND CARS HAVE IT 
. "ELSE PR I NT "SO LONG SUCKER. " 
430 FOR YX=1 TO 700: NEXT: CLS (0) 
440 FOR D=0T031:SET(23,D, 1) :SET( 
35,31-D, 1) :NEXT 

450 PRINTei3, "fan"; :PRINT@44, "bl 
ade"; 

460 XS=431 

470 XS=XS-32: IF XS<4S THEN 630 
480 PRINTeXS, 

490 A*=INKEY*:IF A«=""THEN490 
500 SOUND 50, 1 

510 B*=1NKEY*:IF B*=""THEN510 
520 SOUND 100, 1 

530 C*=INKEY*:IF C*=""THEN530 
540 SOUND 150, 1 

550 IF A*="K"AND B*="E"AND C*="Y 
"THEN590 

560 PLAY"T401L16C" 

570 PRINT@XS,CHR*<12S) ; 

580 G0T0470 

590 PRINT"Y0U DID IT ! f *" ; : PLAY"0 
3T3L8CL4FAL4 . ALaG#L4 AFFP5L8CL4FA 
AG#AL2F" 

600 PLAY " P5L8CL4FAL4 . AL8G#L4 A04C 
C" 

6 1 0 PLAY " L803A04CL4DC03AGAL 1 . A " 
620 G0T0640 

630 CLS: PR I NT "YOU BEEN CHOPPED U 
P TO LUNCH BAGSIZE. ": GOTO 1700 
640 PR I NT "AS USUAL, YOU' RE ZAPPED 

INTO ANOTHER ROOM." 
650 FOR T=l TO 5000: NEXT 
660 GOSUBIOO 

670 PRINT@14, "door"; : IF AU=OTHEN 

PRINT@a4, "armour"; 

680 PRINTeXS, "*" ; : PRINT@490, "but 

ton";: IF MA=1 THEN PRINT(i32, "mag 

net"; 

690 G0SUB1440:PRINTP*:PRINT"A DO 
OR , A BUTTON " 5 : I F AU=OTHENPR I NT " , 
ARMOUR"; 

700 IF MA=1THENPRINT" , AND A M 
AGNET" 

710 PRINT" ,": GOSUB1470: IF N=1THE 
NXS=48ELSE IF N*=" ARM"THENXS=96+ 
22ELSE IF N*="BUT"THENXS=460 
720 IF V=1AND N*="ARM"THENPRINT" 
LOOK'S LIKE YOUR SI ZE. " : 60T0S60 
730 IF V=1AND N*="D00"THENPRINT" 
A CLUE:216.AND IT'S UNLOCKED. ":G 
0T0S60 

740 IF V*="0PE"AND N=1THENPRINT" 
BLOOD COMES POURING IN THE ROOM, 
DROWNING YOU! ":60T01700 
750 IF V=3THENPRINT"I DON'T REAL 
LY KNOW. ":G0T0860 

760 IF V=1AND N*="BUT"THENPRINT" 



IT'S A NORMAL BUTTON. ": 60T0860 
770 IF V=2AND N*="BUT"THENPRINT" 
A MAGNET APPEARS, FULLY CHARGED!" 
:IF AU=1THEN PRINT"UH OH. YOUR AR 
MOR IS STUCK TO THEMAGNET AND YO 
U CAN'T GET OUT. TOUGH LUCK.": 
GOTO 1700 

780 IF V=1AND N*="MAG"THENPRINT" 

YOU SEE A PASSAGE. DO YOU GO IN 

IT. ": INPUT AP*:IF MID*(AP*, 1, 1)= 

"Y"THEN 870ELSE 860 

790 IF vol AND N*="MAG"THENPRIN 

T"THE WALLS CLOSE IN, SMASHING YO 

U. ": GOTO 1700 

800 IF N*=" BUT "THEN MA=1 

810 IF N=3 THEN PRINT"NOTHING" : G 

0T0860 

820 IF V=6 AND N*="ARM" AND H*=" 

" THENPR I NT " YOU HAVE IT ON . " : H*= " 

ARM" : AU=1 : 60T0860 

830 IF V=8THEN 860 

840 IF V=2AND N*="BUT"THENS60 

850 G0SUB1660 

860 G0SUB1440:G0T0660 

870 PLAY "VI 5T30 1 L8G02L4 . CL8GL4 . F 

L8CE-FL8 . DO 1 L 1 6B-02L4 . C " 

880 PLAY " V2002L8GL4 . B-L8AB03C02L 

8. AL16FL2G" 

890 PLAY " V2502L8P 1 0G6-03DL8 . CL 1 6 
02GL4. GL803C02G03CLS. DL1602GL2GL 
8FGA-B-LS . GL 1 6E-L8FGL8 . E-L 1 6V3 1 B 
-03L2. C" 

900 PR I NT "GOOD CHOICE.": FOR T=l 
TO 500: NEXT 
910 ' 

920 XS=420 

930 GOSUBIOO 

940 PRINT@13, "door"; 

950 PRINTSXS, "*"; 

960 GOSUB 1 440 : CLS : PR I NTP* : PR I NT " 

A ROOM WITH A DOOR. " 

970 PR I NT "NO MORE SECRET PASSAGE 

. ": GOSUB 1470 

980 IF N=1THENXS=45 

990 IF V=3THENPRINT"I WILL GIVE 

YOU A CLUE : 1 1 6 " : GOTO 1 060 

lOOO IF V=1AND N=l THENPR INT "IT I 

S UNLOCKED . " : GOTO 1 060 

1010 IF V=2AND N=1THENPRINT"AN0T 

HER ROOM. " : GOTO 1070 

1020 IF V*="KIC"AND N=l THENPR I NT 

"MY AREN'T WE VIOLENT.": IF RND<3 

)<2THENPRINT"Y0U BROKE YOUR ANKL 

E AND ANOTHER I NV I SO-MONSTER EATS 

YOU": GOTO 1700 
1030 IF <V*="OPE" OR V*="KIC")AN 
D N=l THENPR I NT "ANOTHER ROOM.": GO 
T01070 

1040 IF V*="SME"AND N=l THENPR I NT 
"YOU WIN THE SECRET WORD!! IT IS: 
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POWER" : 60SUB1740: GO 

T01060 

1050 G0SUB1660 

1060 B0SUB1440:G0T0930 

1 070 XS=4 1 8 : PLAY " V3 1 03L4 AL2AL4E A 

L2BE04L4C#03B04C#DL2C#03B " 

1080 G0SUB100:PRINT@4S2, "door"; : 

PRINTe237, "cof f in"; :PRINT@XS, "♦" 
■ 

1090 60SUB1440 

1100 printp*:print"a door and a 
coff in.": gosub 1 470 
1110 if n=1thenxs=450else if n*= 
"cof "then xs=271 

1120 IF (V*="SIT" OR V*="LAY" OR 
V*="SLE"> AND N*="COF" THEN PR I 
NT "THE COFFIN CLOSES ON YOU !! WAT 
CH THIS. . . ":G0T01200 
1130 IF V=l AND N=1THENPRINT"IT' 
S NOW LOCKED AND GETTING HOT.":G 
0T01190 

1140 IF vol AND N=l THEN PRINT" 

WOW!! IT'S HOT": 60T01 190 

1150 IF V=STHEN1190 

1160 IF V=1AND N*="COF"THENPRINT 

"IT'S EMPTY AND VERY SOFT.": GOTO 

1190 

1170 IF V*="HEL"THENPRINT"TAKE A 

REST IN THE COFFIN. ": GOTO 1 190 
1180 GOSUB 1660 
1190 GOSUB 1440: GOTO 1080 

1200 FOR tn=itoiooo:next:gosubio 

0:PRINT@450, "door"; 

1210 FOR T=237 TO 224STEP-1 : PRIN 

T@T, "cof f in"; :PRINT@T+7,CHR*(128 

);:sound t-ioo,i:next 

1 220 PR I NT@224 , " of f i n " ; : PR I NT@22 
4+6,CHR*< 128) ; :PRINTe224, "f f in"; 
:PRINT@224+5,CHR*(128) ; 
1 230 PR I NT@224 , " f i n " ; : PR I NT(i228 , 
CHR*(128> ; :PRINT@224, "in"; : PRINT 
e227,CHR*(12S) ; :PRINT@224, "n"; :P 
RINT@226, CHR* ( 128) ; : PRINT@224, CH 
R*<128> ; :PRINT@225,CHR*<128) ; 
1240 INPUT "WASN'T THAT NEAT, HUH" 
;RT*:IF LEFT*(RT*, 1)="N"THEN PRI 
NT"FINE,A MAN-EATING SOUP CAN 

DEVOURS YOU. DID YOU LIKE THAT 
": INPUT RT*:IF LEFT*(RT*, 1)="N"T 
HEN PRINT"I'M GETTING RID OF THI 
S PROGRAM. ":NEW 

1250 INPUT "ONE MORE TIME, WAS IT 
GOOD. ";RT*: IF LEFT«(RT*, 1>="Y" T 
HEN PR I NT " YOU ARE AL I VE . " : GOTO 1 2 

eo 

1260 PRINT "ARE YOU SURE ( Y/N) " : IN 
PUT RT*: IF RT*="Y" THEN PRINT"TH 
IS POGRAM IS NOW OUT OF THE CO 
MPUTER. ":NEW 

1270 PRINT"0KAY, LET'S START OVER 



NOW . " : GOSUB 1 440 : GOTO 1 0 
1280 CLS:PRINT"THE COFFIN DISAPP 
EARS AND YOU ARE NOW STANDING 
FACE TO FACE WITH" ;: PLAY" T502V 
31L4FP20L8F03L1C" : PRINT" doctor 
aval oe. " 

1290 PRINT" HE SAYS: THERE IS AN 
ELETRONIC BARRIER BETWEEN US. DO 
N'T TRY HURTING ME. I WILL GIV 
E YOU A CLUE. IT IS 518. YOU HA 
VE UNTIL THE TIMER EQUALS 5000 

TO SOLVE THE MESSAGE. " 
1300 PRINT" I WILL THE COME BAC 
K TO HEAR THE WORD. ": GOSUB 1440 
1310 CLS:TIMER=0:PRINT@64, "THE T 
IMER NOW says: " 
1320 TI=TIMER 

1330 IF TI>5000THEN PRINT@96, "50 
00": GOTO 1360 
1340 PRINT@96,TI 
1350 GOTO 1320 

1360 PR I NT "THE SECRET WORD PLEAS 
E. " 

1370 INPUT SE*:IF SE*=" POWER" TH 
EN PR I NT "GOOD WORK. WE WILL RELEA 
SE YOU . " : GOSUB 1740: GOTO 1 430 
1380 PR I NT "GOOD! I NEED SOMEONE 
ELSE FOR EXPERIMENTS. THE DR. T 
URNS YOU INTO " ; : ON RND<3)G0SU 
B1400, 1410, 1420 
1390 GOTO 1700 

1 400 PR I NT " A PI ANO . " : RETURN 
1410 PRINT"A MICROWAVE OVEN.":RE 
TURN 

1420 PR I NT "A BOWL OF BODY BUDDIE 
S. ": RETURN 

1430 PR I NT "YOU HAVE DONE IT. GOOD 

JOB. ":60T01710 
1440 PRINT(i458, "HIT ANY KEY"; 
1450 IF INKEY*=""THEN1450ELSE CL 
S 

1460 RETURN 

1470 PRINT@96, "WHAT DO YOU DO" 

1480 V=0:N=0 

1490 N=0:V=0 

1500 INPUT D* 

1510 V*=LEFT*<Q*,3) 

1520 F0RT=(LEN(Q*)-2)T01STEP-1 

1530 IF MID*<Q*,T, 1)=" "THEN N*= 

MID*<Q*,T+1,3)ELSE NEXTT 

1540 IF V*=" LOO "THEN V=1ELSE IF 

<V*="PUS"OR V*="PRE" OR V*="PUL" 

OR V*="MOV")THEN V=2ELSE IF V*=" 

HEL"THEN V=3 ELSE IF V«="CLI"THE 

N V=4 ELSE IF V*=" DOW "THEN V=5 

1550 IF (V*="GET"OR V*="TAK"ORV* 

="KEE")THEN V=6ELSE IF <V*="LEA" 

OR V*="DRO") THEN V=7 
1560 IF V*="INV" THEN V=8 
1570 IF N*="DOO"THEN N=1ELSE IF 
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|v!$="STA" THEN N=2ELSE IF N*="'WAL 
"THEN N=3ELSE IF N*=" WAT "THEN N= 
4 

1580 IF V<>aTHEN1610 
1590 IF H*=""THENPRINT"NOTHING"E 
LSE IF H*="BOT"THENPRINT"BOTTLE" 
ELSE IF H*="KEY"THEN PRINT"KEY"E 
LSE IF H*=" PAP "THEN PR I NT "PAPER" 
ELSE IF H*="BAR" THEN PR I NT "BAR" 
1600 IF H*=" ARM "THEN PR I NT" YOU 'R 
E WEARING ARMOUR." 
1610 ' 

1620 IF V*="STA" THEN 10 

1630 IF V=7THEN H*=" ": PRINT "YOU 

GOT RID OF IT. " 

1640 IF N=3THENXS=64:PRINT"N0THI 
NG" 

1650 RETURN 

1660 ON RND<3) GOTO 1670,1680,16 
90 

1670 PRINT"??WHAT??":RETURN 
1 680 PR I NT " YOU CAN ' T . " : RETURN 
1 690 PR I NT " CAN ' T . " : RETURN 
1700 PR I NT "YOU DIED A SORROWING 
DEATH. " 

1710 PRINT"WANT TO TRY AGAIN (Y/N 
)": INPUT YN*:IF YN*="Y" THEN 10 
1 720 PR I NT " CH I CKEN " : PLAY " O 1 L2FC " 



1730 END 

1 740 PLAY " T3V3 1 04L4DL8 . C#03L 1 6BL 
4 . AL8GL4F#EL4 . DL8 " 

1 750 PLAY " L8ABBBBBP20B04C#C#C#C# 
C#P20C#L1D" 

1760 FOR E=1T02:PLAY"L804P15DDC# 

03BAL8 . AL 1 6GL8F# " : NEXT 

1 770 PLAY " L803F#F#F#L 1 6F«GL4 . AL 1 

6GF#L8EEEL 1 6EF#L4 . 6 " 

1 780 PLAY " L 1 803F#ELSD04L4D03L8BL 

8 . AL 1 6GL8F#6L4F#EL2D " 

1790 RETURN 

1800 THE WORDS SYMBOLS 



1810 

1820 LOO 1 
1830 PUS,PUL,MOV 2 
1840 HEL 3 
1850 CLI 4 
1860 DOW 5 
1870 GET,TAK,KEE 6 
1880 LEA,DRO 7 
1890 INV 8 

1900 

1910 DOO 1 
1920 STA 2 
1930 WAL 3 
1940 WAT 4 
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RAINBOW CHECK INFORMATION 



To use (lie RAINBOW CHECK, ly|)e in the j)rogratn, CSAVE il for future use, then type in the 
coninianrl Rl'X and presi^EA TEB. Once the program has run, type NEW to remove it from that area 
into which you will he keying programs. 

Now, whenever you press the down arrow, CoCo will give you the hexadecimal number of bytes in 
memory. This is to check against the numbers printed in The Rainbow Book of Adventurer. If your 
number is different, check the listing carefully to be sure you typed in the proper BASIC program code. 

As the hexadecimal number appears in the upper-left corner of the monitor screen, you may want to 
clear the screen and press the spacebar five or six times to move the cursor out of the way for easy 
reading. The RAINBOW CHECK counts spaces, too, follow the spacing just as it appears in the 
magazine. 

Here's the program: 



10 CLS:IF PEEK(116)=127 THEN X=32688 EESE X=16304 
20 CLEAR 25,X-1 

30 IF PEEK(n6)=127 THEN X=32688 ELSE X= 16304 

40 FOR Z=X TO X+77 

50 READ Y:W=W+Y:PRINT Z,Y;W 

60 POKE Z,Y:NEXT 

70 IF W=5718 THEN 80 ELSE PRINT "DATA ERROR":STOP 
80 EXEC X:END 

90 DATA 182, 1, 106, 167, 141, 0, 68 
100 DATA 134, 126, 183, 1, 106, 190 
110 DATA 1, 107, 175, 141,0,57,48 
120 DATA 141,0,4, 191, 1, 107,57 
130 DATA 129, 10, 38, 44, 52, 22, 220 
140 DATA 27, 147, 25, 142, 4, 0, 141 
150 DATA 6, 31, 152, 141, 2, 32, 25 
160 DATA 52, 2, 68, 68, 68, 68 
170 DATA 141,4,53,2, 132 
180 DATA 15, 129, 9, 46, 4, 139, 112 
190 DATA 32, 2, 139, 55, 167, 128, 57 
200 DATA 53, 22, 126, 0, 0 
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It was a day mixed with sadness and excitement 
when the reading of your grandfather's will 
finally arrived. William T. York, even though he 
was your grandfather, was a mean and Scrooge- 
like man who had become a recluse in his final 
years. No one knew very much about him except 
that he was the richest man in Grande Prairie. 

The family was very interested in learning the 
contents of the will because all of William's assets 
were tied up in the York Hotel — the biggest and 
most beautiful hotel in Canada. And, to make this 
day more interesting, both sides of the family, the 
Yorks and the Chomiuks, had been feuding for 
years and both were extremely poor. 

As characteristic of your nasty, conniving grand- 
father, his will stated that he hid the deed of the 
York Hotel somewhere in his old, abandoned 
summer home located on the outskirts of Grande 
Prairie. Whoever finds the deed first inherits the 
fortune! 

You must enter the house, which is filled with 
clues, traps and ghosts and find the deed before the 
Chomiuks do or your family will disown you. 

Surprise and spine-chilling terror await you 
after youPCLEAR 1 and load this great adventure. 



16K 
ECB 



I — I 



15 


0301 


115 


1C3B 


34 


07F7 


131 


21 F4 


59 


0C82 


147 


26BF 


79 


1117 


160 


2CD6 


97 


1694 


END 
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The listing: 



0 ' "THE DEED OF THE YORK" BY C 
HRIS HARLAND - 4 DAVIDSON CRES. , 

RE6INA, SASK., CANADA 

1 A*=CHR4i ( 128) 

2 CLSO 

3 PRINT(£l70, "the"+A*+"deed"^-A*+"o 
f "+A*+"the"+A*+"york"; 

4 PRINT@134, "a" ♦-A*+"game"+A*+"Df 
" +^A*+"adventure" ; 

5 PRINT@192+15, "by" ; 

6 PR I NT@266 , " DW I 6HT LDBAN " ; 

7 PRINT@326, "modi f ied"+A*+"f or " + 
A*+"the"+A*+"aOc "; 



( Chris Harland is a bilingual high school student in the 
"Great White North" [Regina, Saskatchewan, Canada]. 
Some of his interests include sports, money, computers 
and rock music. Chris loishes to thank Dwight Logan and 
Gerald Nunn, whose initiative and help respectively- 
ensured the program's creation.) 



a PRINT@3S4+14,"by"; 

9 PR I NT@458 , " CHR I S HARLAND " ; 

10 FOR X=l TO 4: SCREEN 0,1: FDR T 
=1 TO 12:PLAY"T255L25502V31; "+ST 
R*(T>:NEXT T:F0R Y=1 TO 25: NEXT 
Y: SCREEN 0,0: FDR T=12 TO I STEP 
- 1 : PLAY " L255D2 ; " +STR* < T > : NE XT T : 
FDR Y=l TO 25: NEXT Y:NEXT X 

11 FOR X=l TO 1500: NEXT X 

12 DATA 83,72,65,75,69,83,80,69, 
65,82,69 

13 CLS 

14 PRINTe6, "the deed of the york 
": PRINT 

15 PR I NT "YOU ARE OUTSIDE OF AN 0 
LD HOUSE ON THE OUTSKIRTS OF GRA 
NDE PRAIRIE. YOU KNOW THAT 
INSIDE THE HOUSE THERE IS HIDD 
EN THE DEED TO THE LAND THAT 
THE YORK HOTEL IS ON! 

16 PRINT: PRINT" IF YOU CAN FIND T 
HAT DEED BEFDRETHE CHOMIUKS DO, 
YOU CAN SAVE YOUR FAMILY'S FOR 
TUNE ! " 

17 PRINT8480, "PRESS ANY KEY TO C 
ONTINUE";:IF INKEY$="" THEN 17 E 
LSE CLS 

IS PRINT<ll6,"the deed of the york 
": PRINT 

19 PRINT"DO YOU WISH TO FIND THE 
DEED??? 

20 PR I NT "REMEMBER THAT THE HOUSE 

IS SUPPOSED TO BE haunted! 

I I I i> 

21 PRINT: PRINT" IF YOU ARE BRAVE 
ENOUGH, THEN ENTER 

22 PRINT: PR I NT "THE DOOR WILL ONL 
Y OPEN IF YOU SHOUT 'PIZZA'" 

23 PRINT(§480, "PRESS ANY KEY TO C 
ONTINUE";:IF INKEY*=""THEN 23 EL 
SE CLS 

24 PRINT@6,"the deed of the york 
": PRINT 

25 PR I NT "THERE ARE CLUES SCATTER 
ED AROUNDTHE HOUSE TO HELP YOU F 
IND THE MAGIC NECESSARY TO LOCA 
TE THE DEED, BUT REMEMBER - TH 
ERE IS ALSO DANGER!" 

26 PRINT: PRINT" IF YOU FORGET WHE 
RE YOU ARE, TYPE 'WHERE'" 

27 PRINT@4eO, "PRESS ANY KEY TO S 
TART";: IF INKEY*="" THEN 27 

28 CLS 

29 PRINT: INPUT "WHAT NOW"; A* 

30 IF A*=" WHERE" THEN PR I NT "YOU' 
RE OUTSIDE AN OLD HOUSE, STUP 
ID! ":G0TO 29 

31 IF RIGHT*<A*,5)="PIZZA" OR RI 
BHT*(A*,7)="'PIZZA' " THEN 33 
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32 PRINT" YOU'RE A BIG COWARD, BU 
T I DON'TBLAME YOU - REMEMBER, Y 
OU CAN ALWAYS ENTER AGAIN BY T 
YPIN6 IN 'PIZZA'":END 

33 IF DD1=0 THEN PR I NT "THE DOOR 
HAS SWUNG OPEN! ! ":DD1=1 

34 PRINT: PRINT: PRINT" INSIDE, THE 
RE IS A HALLWAY WITH A VERY WORN 

CARPET. THE HALL IS EMPTY EX CEP 
T FOR A COATRACK. A DOOR IS TO 
YOUR RIGHT AND ANOTHER TO 

YOUR LEFT. A THIRD DOOR, MADE 
OF GLASS, IS STRAIGHT AHEAD OF YO 
U. " 

35 PR I NT: PR I NT "WHAT DO YOU WANT 
TO DO"; : INPUT A* 

36 IF LEFT* (A*, 5>=" GLASS" THEN 9 
7 

37 IF A*=" WHERE" THEN 34 

38 IF A*= "RIGHT" THEN 50 

37 IF A*="LEFT" THEN 155 ELSE IF 
RIGHT*(A*,6)="CARPET" THEN PRIN 

T"THE ONLY REMARKABLE FEATURE OF 
THE CARPET IS A LITTLE MESSAGE 
UNDERNEATH WHICH SAYS: 'MADE B 

Y LORD CHAMBERLAIN'S MEN'S SEW IN 
G COMPANY- 1605 ' " : GOTO 35 

40 IF B*=" WHERE" THEN 34 

41 IF B*="RIGHT" THEN 50 

42 IF B*="LEFT" THEN 155 

43 IF A*=" STRAIGHT" THEN 97 

44 IF RIGHT*(A*,4)="D00R" THEN 4 

a 

45 IF LEFT*(A*,3)="0UT" THEN PR I 
NT "THE DOOR IS LOCKED BEHIND YOU 
- YOU CAN'T GET OUT !": GOTO 35 

46 IF RIGHT* (A*, 8)= "COATRACK" TH 
EN 49 

47 GOTO 35 

48 PR I NT "WHICH ONE?": GOTO 35 

49 PRINT" IT'S JUST AN ORDINARY C 
OATRACK WITH THE INITIALS 'W.S. 
' CARVED IN IT,": GOTO 35 

50 PRINT: PRINT"YOU ARE IN WHAT W 
AS OBVIOUSLY THE LIVING ROOM. 
IT CONTAINS A COUCH AND TWO EAS 

Y CHAIRS, ALL OF WHICH ARE COVE 
RED WITH DUSTY SHEETS. ON ONE WA 
LL IS A LARGE FOLDING DOOR. ON 
ANOTHER WALL IS A SMALLER SLID 
ING DOOR. " 

51 PR I NT "THERE IS ALSO A DOOR GO 
ING LEFT. " 

52 PR I NT: PR I NT "WHAT WILL YOU DO 
NOW"; : INPUT C* 

53 IF RIGHT*(C*,5)="C0UCH" THEN 
162 

54 IF C*=" WHERE" THEN 50 

55 IF LEFT* (C*,7)="SLIDING" THEN 
164 



56 IF LEFT* (C*, 7 >=" SMALLER" THEN 
164 

57 IF LEFT*<C*,5)="LARGE" THEN 6 
9 

58 IF LEFT*(C*,7>="F0LDING" THEN 
69 

59 IF RIGHT*(C*,6)="SHEETS" THEN 
68 

60 IF LEFT*<C*,4>="BACK" OR RIGH 
T*<C*,4)="LEFT" THEN 34 

61 IF RIGHT*<C*,4)="D00R" THEN 1 
69 

62 IF RI6HT*<C*,5)="CHAIR" THEN 
65 

63 IF RIGHT* <C*, 5)= "COUCH" THEN 
PRINT"ON THE RIGHT SIDE OF THE C 
OUCH IS ENGRAVED: WILLIAM S< ANN 
E - 1582": GOTO 52 

64 PR I NT "DOESN'T SOUND GOOD TO M 
E ~ TRY SOMETHING ELSE": GOTO 52 

65 PR I NT " NOTH I NG HAPPENS . " : GOTO 
52 

66 PR I NT "TO BE NOTHING OF INTERE 
ST HERE. ":60T0 52 

67 GOTO 64 

68 PR I NT "JUST A COUCH AND CHAIRS 
":G0T0 52 

69 PRINT: PR I NT "YOU ARE IN WHAT M 
UST HAVE BEEN THE DINING ROOM. 
THERE IS A LDNGOAK TABLE AND 8 C 
HAIRS. 2 PICTURES AND A SW 
ITCH ARE ON ONE OF THE WALLS. 

STRAIGHT AHEAD IS A SWING I 

NG DOOR AND BEHIND YOU IS A FOLD 
ING DOOR. " 

70 PR I NT: PR I NT "WHAT WILL YOU DO 
NOW": 

71 INPUT F*:IF LEFT* <F*, 4)=" TURN 
" THEN 84 

72 IF LEFT*<F*,8)="SWINGING" THE 
N 85 

73 IF F*=" WHERE" THEN 69 

74 IF RIGHT*(F*,5)="TABLE" THEN 
77 ELSE IF RIGHT*(F*,8)="PICTURE 
S" THEN 163 ELSE IF RIGHT* (F*, 6) 
=" CHAIRS" THEN 79 ELSE IF LEFT* ( 
F*,4)="BACK" THEN 50 

75 GOTO SO 

76 PRINT"WHAT?":60T0 70 

77 PR I NT "WHEN YOU TOUCH THE TABL 
E, A TRAPDOOR IN THE FLOOR OPENS 
. YOU FALL INTO A COMPLETELY 
BARE BASEMENT. YOU CAN DO BU 
T SHOUT FOR HELP. EVENTUALLY YO 
U ARE SAVED, BUT BY THAT TIME 
, THE" 

78 PRINT"CHOMIUKS HAVE FOUND THE 
DEED ANDYOUR FAMILY EXPELS YOU! 

" : END 

79 PRINT"NOTHING HAPPENS. WHAT N 
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0W";:B0T0 71 

80 IF LEFT* <F*, 7)=" FOLDING" THEN 
50 

81 IF RIGHT*(F«,7)="PICTURE" THE 
N 163 

82 IF RIGHT* (F*,4>="D00R" THEN 8 
3 ELSE IF RIGHT*<F*,6)="SWITCH" 
THEN 84 ELSE 76 

83 PRINT"WHICH DOOR";: GOTO 71 

84 PRINT"LIGHT FILLS THE ROOM.": 
GOTO 70 

85 PRINT: PRINT" YOU ARE IN THE KI 
TCHEN. THERE ARE DOORS TO YOUR 

LEFT RIGHT, AND STRAIGHT AHEA 
D. A SWINGING DOOR IS BEHIND YO 
U. A CUPBOARD IS ON ONE WALL AN 
D AN OLD ICEBOX IS AGAINST 

ANOTHER. " 

86 print: input "what will you do" 
;a* 

87 IF LEFT*<A*,8>="SWINGING" THE 
N 69 ELSE IF RIGHT* ( A*, 8) ="SWING 
ING" THEN 69 ELSE IF A*=" WHERE" 
THEN 85 ELSE IF RIGHT* ( A*, 6) =" IC 
EBOX" THEN 105 ELSE IF RIGHT* (A* 
,8)= "CUPBOARD" THEN 90 ELSE IF R 
IGHT*(A*,4)="BACK" THEN 69 

88 IF LEFT*(A*,5)="RIGHT" THEN 9 
2 ELSE IF LEFT*<A*,4>="LEFT" THE 
N 97 ELSE IF LEFT* ( A*, 8) ="STRAIG 
HT" THEN 99 ELSE IF A*=" AHEAD" T 
HEN 99 ELSE IF RIGHT* ( A*, 4) ="D00 
R" THEN 91 

89 PRINT"WHAT?":G0T0 86 

90 PR I NT "AH! BUT THE CUPBOARD IS 
BARE, SAVE FOR ONE DUSTY OLD 

GLASS. LOOK ELSEWHERE. ": GOTO 8 
6 

91 PR I NT "WHICH ONE WAS THAT AGAI 
N?":GOTO 86 

92 PRINT: PR I NT "YOU ARE NOW OUTS I 
DE ON THE BACK PORCH. THERE IS N 
OTHING HERE. BESIDES, YOU KN 
OW THE DEED IS IN THE HOUSE. 

THE ONLY WAY TO 60 BACK IS TH 
E DOOR TO YOUR LEFT. SO WHAT 
NOW"; 

93 INPUT K* 

94 IF RIGHT* (K*, 4) ="BACK" THEN 8 
5 ELSE IF RIGHT* <K*,4>="D00R" TH 
EN 85 ELSE IF K*=" WHERE" THEN 92 

95 IF RIGHT*(K*,4)="LEFT" THEN 8 
5 

96 PRINT"HUH?":G0T0 92 

97 PRINT: PRINT" YOU' RE IN THE CEN 
TRAL BALLROOM. A HUGE CHANDELIER 

HANGS IN THE CENTER OF THE ROO 
M, A BROWN DOORLEADS OFF TO YOUR 

RIGHT. A GLASSDOOR IS BEHIND YO 
U, AND ORNATE DOUBLE DOOR IS ON 



YOUR LEFT. A SETTEE IS ALONG 0 
NE WALL. A" 

98 PR I NT "LARGE, WINDING STAIRCAS 
E LEADS UPSTAIRS. A GREEN DOOR 
IS NEAR THE STAIRCASE. ": GOTO 10 
7 

99 PR I NT "AS YOU OPEN THIS DOOR, 
YOU JUST HAVE ENOUGH TIME TO SEE 

THAT IT LEADS TO THE PANTRY BEF 
ORE A DISEMBODIED ARM SWINGS 
AN AXE ATYOU! ! YOU ARE CUT! ! YOU 

STAGGER OUT ANOTHER DOOR BLEED I 
NG BADLY! WHICH OTHER DOOR - LEFT 

OR RIGHT?"; : INPUT L* 

100 IF L*="LEFT" THEN 103 

101 IF L*="RIGHT" THEN 104 

102 PRINT"OOPS! YOU JUST DIED WH 
ERE YOU STOOD ! ! ! " : END 

103 PR I NT "YOU STAGGERED INTO THE 
CENTRAL BALLROOM AND BADLY BLE 

D TO DEATH. " : END 

104 PR I NT "YOU STAGGERED OUTSIDE, 
WHERE SOMEONE HEARD YOUR SCR 
EAMS AND TOOK YOU TO A HOSPITAL 
. TRY THE HOUSE AGAIN TOMORROW!" 
: END 105 PRINT" INSIDE THE ICEBOX 
IS A ROLL OF PAPER. YOU UNROLL 
IT AND READ: 'SHELVE ALL PLOTS 
AS THE BARD WAVES HIS JAVELIN. 

P II 

106 PR I NT "WHAT WILL YOU DO NOW?" 
:GDTO 86 

107 ' 

1 08 PR I NT : I NPUT " NOW WHAT " ; M* 

109 IF LEFT*(M*,5)="GREEN" THEN 
137 ELSE IF LEFT* (M*, 5)= "GLASS" 
THEN 34 ELSE IF LEFT* (M*, 5) ="BRO 
WN" THEN 85 ELSE IF RIGHT* <M*, 6) 
=" SETTEE" THEN 115 ELSE IF LEFT* 
<M*,6>="0RNATE" OR LEFT* (M*, 6) =" 
DOUBLE" THEN 117 ELSE IF RIGHT*( 
M*, 9> =" STAIRCASE" THEN 1 19 

110 IF RIGHT* (M*,5>="R1GHT" THEN 
117 ELSE IF RIGHT*(M*,4)="LEFT" 
THEN 85 

111 IF RIGHT* (M*,2>="UP" OR RIGH 
T*(M*,1)="U" THEN 119 

112 IF RIGHT* (M*, 10) ="CHANDELIER 
"THEN 121 ELSE IF RIGHT* (M* , 4) =" 
DOOR" THEN 114 ELSE IF RIGHT* <M* 
,8)="UPSTAIRS" THEN 119 ELSE IF 
M*=" WHERE" THEN 97 

113 PR I NT " TRY SOMETH I NG ELSE . " : G 
OTO lOS 

114 PRINT"WHICH DOOR": GOTO 108 

115 PR I NT "AS YOU TOUCH THE SETTE 
, A PANEL OPENS IN THE CEILING A 
BOVE YOU, AND A CARVED PUMPKIN F 
ALLS ON YOUR HEAD! ! YOU STAG6E 
R AROUND IN A DAZE.":FOR 1=1 TO 
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1000: NEXT I 

116 PR I NT "YOU CDME AROUND AGAIN 
AND YOU ARE IN A KITCHEN" : FOR 
1=1 TO 1500: NEXT I:CLS:GOTO 85 

117 PRINT: PR I NT "YOU HAVE ENTERED 
THE STUDY. IN THE CENTER OF TH 

E ROOM IS A LARGE, OLD DESK. 

TWO DOORS LEAD OUT TO THE LEFT 
AND TO THE RIGHT, AS WELL AS 

AN ORNATE DOUBLE DOOR BEHI 

ND YOU. ALONG THE WALL OPPOSIT 
E YOU IS A BIG FIREPLACE." 

118 GOTO 122 

119 PR I NT "AS YOU START UP, YOU H 
EAR A L0UDWAILIN6 NOISE! !":FOR I 
=1 TO 1500: NEXT: PRINT: PRINT"SUDD 
ENLY, A GHOST IN WHITE APPE 
ARS AT THE TOP OF THE STAIRSAND 
RUSHES DOWN AT YOU ! ! " : FOR 1=1 TO 

2500: NEXT I 

120 PR I NT: PR I NT "BEFORE IT CAN RE 
ACH YOU, YOU SCREAM, AND YOU 
RUN DOWN AND OUT IN PURE TERROR!! 

! YOU REMAIN WHITE FOR THREE 
DAYS - TOO LONG, AND YOUR FAMILY 
DISOWNS YOU FOR NOT SAVING THEIR 
LAND ! ! " : END 

121 PR I NT "THE CHANDELIER IS VERY 
OLD AND BEAUTIFUL, BUT EVERY T 

I ME YOU TRY TO REACH, TOUCH, 0 
R THROW ANYTHING AT IT, IT SWA 
YS AWAY!":FOR 1=1 TO 1000: NEXT: P 
R I NT "TRY SOMETHING ELSE": GOTO 10 
8 

122 PRINT: INPUT "WHAT DO YOU WANT 
TO DD";N* 

123 IF RIGHT*<N*,4)="DESK" THEN 
147 ELSE IF LEFT*(N*,4)="0RNA" 0 
R LEFT*<N*,4)="D0UB" THEN 97 ELS 
E IF RIGHT* (N*,9)="FIREPLACE" TH 
EN 149 ELSE IF LEFT* <N*, 4) ="LEFT 
" THEN 127 ELSE IF LEFT* (N*, 5) =" 
RIGHT" THEN 137 ELSE IF RIGHT* (N 
*,4)="D00R" THEN 126 

124 IF N*=" WHERE" THEN 117 

125 PR I NT "WHERE? WHAT? TRY AGAIN 
'. ":G0TD 122 

126 PR I NT "WHICH DOOR?": GOTO 122 

127 PRINT: PRINT" YOU ARE IN THE L 
IBRARY. ALONG ONE WALL IS A SH 
ELF OF BOOKS. ONE DOOR IS BEHI 
ND YOU, AND A METAL PANEL IS N 
EAR THE SHELF. " 

128 ' 

129 PRINT: INPUT "WHAT WILL YOU DO 
NOW"; 0*:IF 0*=" WHERE" THEN 127 

130 RESTORE: FOR TT=1 TO 11:READ 
N: W*=W*+CHR*<N) :NEXT TT: IF RIGHT 
*(0*,11)=W* THEN 134 

131 GOTO 151 



132 IF LEFT*(0*,4>="BACK" THEN 1 
17 ELSE IF RIGHT*<0*,5)="PANEL" 
THEN 155 

133 PR I NT "NOTHING HAPPENS. TRY S 
OMETHING DIFFERENT. "; GOTO 129 

134 PRINT: PRINT"ONE BOOK FLIES O 
F THE SHELF AND FALLS IN THE MID 
DLE OF THE ROOM! IT FALLS OPEN TO 

A PAGE WHICH HAS INSERTED IN 
IT THE DEED TO THE YORK! ! ! ! ! YO 
U HAVE SAVED THEFAMILY AND ARE N 
OW A HERO! ! YOU HAVE WON THIS GA 
ME, BUT DO NOT" 

135 PR I NT "TELL ANYONE THE SECRET 
S ! ! " : END 

136 GOTO 133 

137 PRINT: PRINT"YOU ARE IN A MUS 
IC ROOM. TO YOURRIGHT IS A GREEN 

DOOR, AND BEHIND YOU IS A 

RED DOOR. ON ONEWALL ARE PORTRAI 
TS OF FAMOUS ENGLISH AUTHORS 
AND PLAYRIGHTS. AGAINST ANOTHER 
WALL IS A PIANO. " 

138 IF RIGHT*<M*,4)="BACK" THEN 
34 

139 PRINT: PRINT"WHAT NOW";: INPUT 
P*:IF P*=" WHERE" THEN 137 ELSE 

IF LEFT*<P*,3)="RED" THEN 117 EL 
SE IF LEFT*<P*,4>="GREE" THEN 97 
ELSE IF RIGHT*(P*,4)="D00R" THE 
N 144 ELSE IF RIGHT* (P*, 1 1 ) ?="PLA 
YRIGHTS" OR RIGHT* (P*, 7) =" AUTHOR 
S" THEN 146 

140 IF RIGHT* <P*,5>="RIGHT" THEN 
97 

141 IF RIGHT* (P*,9>="P0RTRAITS" 
THEN 146 

142 IF RIGHT*(P*,5>="PIAN0" THEN 
153 

143 PR I NT "WHAT? WHERE? WHO? TRY 
SOMETHING DIFFERENT !": GOTO 139 

144 PR I NT "WHICH DOOR?": GOTO 139 

145 PRINT"AH! YOU'RE THINKING ND 
W! ! BUT NOTHING HAPPENS. TRY S 
OMETHING ELSE.": GOTO 139 

146 PR I NT "NOTHING HAPPENS. TRY S 
OMETHING DIFFERENT. ": GOTO 139 

147 PR I NT "THE ONLY THING ON OR I 
NSIDE OF THE DESK IS AN OLD LIB 
RARY CARD. NOTHING IS WRITTEN ON 
THE CARD BUT ' 1600S' . " 

148 GOTO 122 

149 PR I NT "AS YOU APPROACH THE FI 
REPLACE, A SUDDEN GUST OF WIND 
BLOWS ASHES TOWARDS YOU. THE 

ASHES SUDDENLY FORM INTO THE 
SHAPE OF A HAND, WHICH GRABS 
YOUR THROAT ! ! YOU STRUGGLE 

AGAINST THE CHOKING SENSATION! 

!":FOR 1=1 TO 3000: NEXT I 
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150 PRINT"YDU STUMBLE BLINDLY BA 
CKWARDS ! ! " : FOR 1=1 TO 1500: NEXT: 
PR I NT "THE CHOKING SENSATION ENDS 
, AND THE HAND DISAPPEARS! ! 

YOU FIND THAT YOU HAVE STU 
MBLED BACK INTO THE BALLROOM !": F 
OR 1=1 TO 2500: NEXT: GOTO 97 

151 IF RIGHT*<0*,4)="D00R" OR RI 
GHT*(0*,4)="BACK" THEN 117 

152 GOTO 132 

153 PR I NT "AS YOU APPROACH THE PI 
AND, IT STARTS TD PLAY! ITS K 
EYS ARE BEING STRUCK BY UNSEEN 

FINGERS! ! ":F0R 1=1 TO 1500: NEXT 
: PR I NT "YOU RECOGNIZE THE TUNE! 
IT IS 'AS YOU LIKE IT'-": FOR 1= 
1 TO 1600: NEXT 

154 PRINT"THE MUSIC DIES AWAY.": 
GOTO 139 

155 PRINT: PRINT"YOU ARE IN A LON 
6, NARROW, ENCLOSED PORCH. 

A DOOR IS BEHIND YOU. ON ONE WALL 
IS A METAL PANEL. ON THE OPP 

OSITE WALL IS A MIRROR. IN THE M 
IDDLE OF THE PORCH STANDS AN 
OLD LAWN CHAIR WITH A NOVEL LYI 
NG ON IT. " 

156 PRINT: PRINT"WHAT WILL YOU DO 
NOW";: INPUT A*: IF A*=" WHERE" TH 

EN 155 ELSE IF RIGHT* <A*, 5) ="PAN 

EL" OR RIGHT* (R*, 5)= "PANEL" THEN 
127 ELSE IF RIGHT*<A*,4)="BACK" 
OR RIGHT*<A*,4)="D00R" THEN 34 

ELSE IF RIGHT*(A*,6)="MIRR0R" TH 

EN 160 

157 IF RIGHT*(A*.5)="CHAIR" THEN 
159 ELSE IF RIGHT*(A*,5>="N0VEL 

" THEN 161 

158 PR I NT "NOTHING HAPPENS. DO SO 
METHING DIFFERENT. ": GOTO 156 

159 PR I NT "THE CHAIR FOLDS UP AND 
PINCHES YOUR FINGER. OTHERWISE 

, NOTHING HAPPENS. ": GOTO 156 

160 PR I NT "AS YOU TOUCH THE MIRRO 
R, FROM NOWHERE, A HUMMING SOU 
ND STARTS, YOU RECOGNIZE THE TUNE 
, AND YOU SING THE WORDS SOFTLY 
TO YOURSELF: ' I'M HENRY 



THE EIGHTHI AM ' ! " : FOR 1=1 TO 20 
00: NEXT I:PRINT"BUT NOTHING ELSE 
HAPPENS. ": GOTO 156 

161 PR I NT "YOU OPEN THE BOOK, BUT 
ALL THE PAGES ARE BLANK EXCEPT 
FOR THE FIRST AND THE LAST. ON 
THE FIRSTPAGE IS WRITTEN: 

THIS IS NOT 'A SUMMER' 
S TALE' ON THE LAST PAGE IS WR 
ITTEN: 'ALL'S WELL THAT ENDS 

WELL'": GOTO 156 

162 PRINT"THE COUCH SHIFTS ASIDE 
, AND AS IT DOES, A PANEL OPEN 
IN THE WALL. AN ARROW SHOOTS 
FROM THE PANEL, AND NARROWLY MI 
SSES YOU! A NOTE IS ATTACHED TO 
THE ARROW. THE NOTE SAYS: ": PRINT" 

DON'T MAKE MUCH ADO ABOUT 
NOTHING. ":GOTO 65 

163 PR I NT "AS YOU MOVE ONE OF THE 
PICTURES, A NOTE FALLS OUT!! PR I 

NTED ON THE NOTE ARE THE LINES 
:":PRINT" HE GOT A PIGLIeT, " : PRIN 
T" HE GOT A BIG MAC,":PRINT" BUT 
WHEN HE LEAPED, ": PR I NT "HE GOT H 
ISTORICAL. " : PRINT: PRINT"NOTHING 
ELSE HAPPENS. WHAT WILL YOU D 

164 PRINT: PRINT" YOU' RE IN A SMAL 
L, COZY ROOM WHICH PROBABLY W 
AS THE DEN. AGAINST ONE WALL 

IS AN OLD TV SET. THE ONLY DO 
OR IS THE ONE YOU CAME IN." 

165 PR I NT: PR I NT "WHAT NOW"; 

166 INPUT A*: IF A*=" WHERE" THEN 
164 ELSE IF RIGHT*<A*,4)="T. V. " 
OR RIGHT*<A*,2)="TV" OR RIGHT* (A 
*, 10)="TELEVISI0N" THEN 168 ELSE 

IF RIGHT*(A*,4)="D00R" OR RIGHT 
*(A*,4)="BACK" OR LEFT* (A*, 4) ="B 
ACK" THEN 50 

167 PR I NT "WHAT ARE YOU TRYING TO 
DO???": GOTO 165 

168 PR I NT "JUST AN OLD, BROKEN TV 
SET. BUT WAIT A MINUTE! WRITTEN 
IN THE DUST ON THE TOP OF THE 
SET ARE THE WORDS 'BOOKS ARE B 

ETTER' ! ":GOTO 165 

169 PR I NT "WHICH DOOR": GOTO 53 

170 END 
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Legend has it that there is a beautiful, happy 
land in the remote corner of the world, 
untouched by civilizations, war and evilness. 
Everyone in the kingdom lives in harmony and no 
one is poor. The king grants everyone's wishes and 
because of his love and unselfishness for the citi- 
zens, all the people have great loyalty and respect 
for him and his royal family. 

It is a sad commentary, but true that everywhere 
in the world, evil surrounds goodness — it anx- 
iously awaits any opportunity to infect every inch 
of the earth with vile corruption. Deep beneath this 
happy kingdom live a clan of ugly, iniquitous crea- 
tures called Groms. They dwell in chambers and 
tunnels filled with dirt, large spiders, rodents and 
minotaurs. The Groms thrive on evilness and 
strive to extinguish all happiness and merriment in 
the world. They detest the happy kingdom and 
after much planning, they realized the only way to 
stop the love and goodness in the kingdom was to 
get to its heart — the sweet princess. 

The evil Groms bided their time until the grea- 
test celebration of the year arrived in the kingdom — 
the king's birthday. 



During the day, all the townspeople were very 
busy preparing for the evening's festivities which 
included delicious food, wine, singing and dancing. 
When evening came, everyone left their homes to 
celebrate in the center of town. The royal family 
danced and dined with the townspeople until sud- 
denly, they heard growling and snarling so loud 
that even the houses and streets seemed to tremble. 
They looked toward the woods and to their horror, 
saw the ugly Groms, furry creatures with long arms 
that help them to run fast. The nails and teeth of 
the Groms were long and sharp and they salivated 
savagely at the meer glance at other living creatures. 

All the townspeople screamed and scurried in all 
directions, bumping into one another, as the 
Groms ran through the crowd. The largest Grom 
picked up the princess, who was paralyzed with 
fear, then ran into the woods and down into the 
very bowels of the earth. 

You, the bravest in the kingdom, must search the 
underground chambers and dungeons to find the 
helpless princess and bring her to safety. Be careful 
because evil surprises await you at each tunnel's 
turn. 
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1 ' **#********-*******#**#it*#*1HHt 

***** DUNGEON ADVENTURE ***** 
***** BY STEVE SHERRARD ***** 
***** 402 WEST SUMMIT ***** 
***** NORMAL, I L. 61761 ***** 
***** JULY, 1932. ***** 
***************************** 

10 CLEAR 1000 

20 CLSrGOSUB 10000 

30 DIM RM*(85> ,0B*(S5) ,0B(85> ,D< 
85,6) ,D*<6) ,F<10> :MX=5:CA=0 
40 FOR X=1T06:READ D*<X):NEXTX 
50 X=0 

60 X=X+l:READ RM*(X):IF RM*(X>=" 
END" THEN 80 

70 FOR Y=l TO 6:READ D(X,Y>:NEXT 

(Steve Sherrard is a 14-year-old senior at University 
High School in Normal, Illinois. He is a self-taught 
computer hobbyist and plans to study computer engi- 
neering at the University of Illinois when he graduates. 
His friend, Michael Cradler, helped him with some of 
the ideas for his program.) 



y:goto 60 

80 X=0 

90 X=X+1:READ ob*<x>:if 0B*<X>=" 
END" THEN N0=X-1:60TD 100: ELSE R 
EAD I*,0B<X> :0B*=0B*+I*:G0T0 90 
100 X=0 

110 X=X+l:READ I*: IF I*="END" TH 
EN 120 ELSE VB*=VB*+LEFT* < I*, 3) : 
GOTO no 

120 CLS:0B(16>=-l:0B(17)=-l:CA=2 
130 Y0U=1 

140 IF Y0U=13 THEN 60SUB 9100 

141 IF Y0U=15 THEN 60SUB 9200 

142 IF Y0U=26 THEN GOSUB 9300 

143 IF Y0U=11 AND F(7)=0 THEN GO 
SUB 9400 

145 PRINT"! AM "; 

150 PRINTRM*<YOU> 

160 PRINT"! CAN SEE: ":F=0 

170 FOR 1=1 TO NO 

180 IF INT<OB(I) )<>INT<YOU) THEN 
200 

190 PRINT" "0B*<!):F=1 

200 next: IF F=0 THEN PRINT" NOT 

HING INTERESTING" 

210 PRINT"YOU CAN GO: " 

220 FOR 1=1 TO 6 

230 IF D<YOU,!)<>0 THEN PRINT" » 
"D*(I) ; 
240 NEXT 
250 PRINT 
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260 PRINT STRING* (32, 61 ) ; 

270 INPUT "WHAT SHOULD I DO"? I* 

280 IF I*-""THEN270 ELSE IF I»o" 

LOOK" THEN CLSrBOTO 140 

282 IF I*="QUIT" THEN END 

284 IF I*="SAVE" THEN 7010 

286 IF I*="LOAD" THEN 7070 

300 IF LEFT*<I*,3)<>"INV"THEN 36 

0 

310 PR I NT "I AM CARRYING: ":F=0 
320 FOR 1=1 TO NO 

330 IF 0B(I>=-1THENPRINT OB* ( I ) : 
F=l 

340 NEXT: IF F=0 THEN PRINT"NOTHI 
NG" 

350 GOTO 260 

360 IF LEFT* (I*, 5><>" SCORE "THEN 
430 

370 IF Y0U=29 AND 0B(12)=-1 THEN 
PR I NT "YOU HAVE ESCAPED WITH THE 
PR I NCESS . " : PR I NT " CONOR ATU 
LATIONS!! YOU WIN ! ! ! " : F0RA=1T010 
: PLAY "VI 505T255L255 " : FOR X = 1 TO 1 5 : 
PLAY"CDEACBV-" : NEXTX : NEXTA: : GOTO 
9030 

380 IF 0B<12)=-1 THEN P=S0 ELSE 
P=0 

390 PR I NT "OUT OF 100 POINTS, YOU 

HAVE: "P:G0T0 260 
430 IF LEN(I*)=1 THEN 710 
440 IF I*="HELP" THEN 800 
450 SP=INSTR<I*,CHR*(32) ) : IF SP= 
O THEN PR I NT "TRY USING TWO WORD 
COMMANDS. ": GOTO 260 
460 V*=LEFT*<I*,SP-1> :0*=MID*<I* 
,SP+1) 

470 A*=LEFT* ( V* , 3 ) : B*=LEFT* < 0* , 3 
) 

500 IF A*="TAK" THEN A*="GET" 

501 IF A*="LEA" THEN A*="DRO" 

502 IF A*="LOO" THEN A*="EXA" 

503 IF A*="UNL" THEN A*="OPE" 
505 IF A*="GIV" THEN A*="DRO" 
600 V=(INSTR<VB*,A*)+2) /3: IF V< 1 

THEN CLS: PR I NT "SORRY, I JUST DO 
N'T KNOW HOW TO":PRINTV*" ANYTHI 
NG.":QOTO 140 

610 0=(INSTR(0B*,B*)+2) /3: IF 0< 1 
THEN CLS: PR I NT "SORRY, I JUST DO 
N'T SEE ANY ": PR INTO*" HERE.": GO 
TO 140 

700 IF LEN(I*>>1 THEN 1000 
710 V=0:CLS:IF I*="N" AND D(YOU, 
DOO THEN YOU=D(YOU, 1> :G0T0140 
720 IF I*="S"ANDD(Y0U,2><>0 THEN 

Y0U=D<Y0U,2) :G0T0 140 
730 IF I*="E"ANDD (YOU, 3)00 THEN 

YOU=D ( YOU , 3 ) : GOTO 1 40 
740 IF I*="W"ANDD(Y0U,4)<>0 THEN 

Y0U=D(Y0U,4> :GOTO 140 



750 IF I*="U"ANDD(Y0U,5><>0 THEN 

YOU=D ( YOU , 5 ) : GOTO 1 40 
760 IF I*="D"ANDD (YOU, 6)00 THEN 

YOU=D ( YOU , 6 ) : GOTO 1 40 
770 GOTO 1000 
800 ' 
810 ' 
820 ' 
825 H-H+1 

830 IF H»>6 THEN PR I NT " THAT ' S EN 
OUGH HELP FOR NOW. YOU ARE SUPPO 
SED TO USE YOUR BRAIN, NOT ASK F 
OR HELP EVERY TIME YOU ARE IN TR 
OUBLE. ":60T0 260 

840 IF Y0U=1 AND F(1)=0 THEN PRI 
NT" TRY TAKING I N VENTOR Y . " : GOTO 
260 

850 IF Y0U=7 AND 0B(2>»-1 THEN P 
R I NT "THAT WHISKY COULD CALM ANYO 
NE DOWN. ":60T0 260 
855 IF YOU-29 THEN PR I NT "TRY SCO 
RE": GOTO 260 

860 IF Y0U=9 AND F(4)=0 THEN PRI 
NT "LOOKS LIKE SOMEONE WAS TRYING 
TO 'DIG' THEIR WAY OUT.": GOTO 2 
60 

865 IF YDU=31 AND F(8)<>1 THEN P 
RINT"LIVE AND LET DIE": GOTO 260 
870 IF Y0U=11 THEN PR INT "LOOKS L 
IKE YOU'LL HAVE TO FIND ANOTHER 

EXIT. ":GOTO 260 
875 IF Y0U=37 THEN PR I NT "TRY ' CL 
I MB I NG ' SOMETH I NG . " : GOTO 260 
880 PR I NT "TOUGH LUCK! JUST KEEP 

TRYING! ":60T0 260 
1000 F=0:IF 0B(0)=Y0U THEN F=l E 
LSE IF 0B(0>=-1 THEN F=2 
1002 ON V GOTO 1100,1200,1300,14 
00, 1500, 1600, 1700, 1800, 1900,2000 
,2100,2200 

1010 IF LEN(I*)=1 THEN PRINT"! C 
AN'T GO THAT WAY !": GOTO 140 
1020 PR I NT "I DON'T UNDERSTAND WH 
AT YOU ARE TELLING ME.":G0T0260 
1100 ' 

1102 IF F=2 THEN PR I NT "I ALREADY 

HAVE IT! ":B0TQ 260 
1104 IF F=0 THEN PRINT" I DON'T S 
EE THAT HERE.": GOTO 260 
1106 IF CA=>MX THEN PRINT" I CAN' 
T CARRY ANYTHING ELSE !": GOTO 260 
1110 ' 

1120 IF 0=3 OR 0=8 OR 0=11 OR 0= 
13 OR (0>17 AND iJ<26) OR 0=33 OR 
0=27 THEN PRINT"DON'T BE RIDICU 
LOUS!": GOTO 260 

1125 IF 0=4 THEN PRINT" I ACCIDEN 
TLY CUT MYSELF PICKING IT UP. I 
AM BLEEDING TO DEATH !!": FOR Z=l 
TO 2000: NEXTZ: GOTO 9000 
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1130 IF 0=12 AND F<9)<>1 AND YOU 
=28 THEN PR I NT "PRINCESS IS AFRAI 
D OF MOUSE AND WON'T COME DOWN." 
:G0T0 260 

1140 IF 0=12 AND Y0U=2S AND F(9) 
=1 THEN PR I NT "OK, YOU SOT HER.": 
OB* ( 12) ="THE PRINCESS" : OB ( 12) =-1 
:GOTO 260 

1199 OB<0)=-l:PRINT"OK, I GOT IT 
, " : C A=CA+ 1 : GOTO 260 

1200 ' 

1205 IF 0=7 THEN F<10)=0 
1210 IF 0=2 AND 0B(2>=-1 AND YOU 
=7 THEN PR I NT "THE GUARD GRABS TH 
E WHISKY AND LEAVES. " : OB (2) =0: 0 
B (3) =0: OB (22) =7: F (3> =1 : CA=CA-1 : G 
OTO 260 

1215 IF 0=29 AND Y0U=28 THEN PR I 
NT "THE MOUSE GETS CAUGHT IN THE 

TRAP AND DIES. ":0B(27)=0:0B(2 
9)=28:CA=CA-l:F<9)=l:G0T0 260 
1220 IF F=2 THEN PR I NT "OK, I DRO 
PPED IT.": C A=CA- 1 : OB < O > = YOU : ELSE 
PRINT"I DON'T HAVE IT." 

1299 GOTO 260 

1300 ' 

1301 IF F=0 THEN PRINT"! DON'T S 
EE IT HERE.": GOTO 260 

1320 IF 0B<8>=Y0U AND 0B(6><>-1 
THEN PR I NT "SORRY, IT'S LOCKED" :G 
OTO 260 

1340 IF 0B<8)=Y0U ANDOB<6)=-l TH 
EN PLAY " V26L29T9 " : F0R0= 1 T05 : FORT 
= 1 TO 1 2 : PLAY " 0 " +STR* ( O ) + " N " +STR* < 
T) :NEXTT,0:PRINT"OK, IT'S OPEN": 
OB* (8)=" AN OPEN DOOR" : F <6) =1 : GOT 
0 260 

1399 PR I NT "SORRY, IT DOES NOT OP 
EN. ":GOTO 260 

1400 ' 

1401 IF F=0 THEN PRINT"! CAN'T C 
LOSE ANYTHING THAT I CAN'T SEE 

OR DON'T HAVE.": GOTO 260 

1499 PRINT"! TRIED, BUT IT DOESN 
'T CLOSE. ":GOTO 260 

1500 ' 

1501 IF F=0 THEN PRINT"! DON'T S 
EE ANYTHING LIKE THAT AROUND HE 
RE. ":G0T0 260 

1510 IF 0=3 THEN PR I NT "HE LOOKS 

PRETTY MEAN.": GOTO 260 

1520 IF 0=4 THEN PRINT" IT'S APPE 

ARS VERY SHARP.": GOTO 260 

1530 IF 0=5 THEN PRINT" IT'S A MA 

P OF SOME TUNNELS. ": GOTO 260 

1540 IF 0=11 THEN PRINT" IT LOOKS 

HUNGRY. ":G0T0 260 
1560 IF 0=15 THEN PRINT"TIME IS 
RUNNING OUT.": GOTO 260 
1565 IF 0=32 THEN PRINT" IT'S A R 



ECENT ISSUE.": GOTO 260 
1570 IF 0=30 THEN PRINT" IT SAYS: 
" : PR I NT " MADE I N THA I LAND . " : GOTO 
260 

1575 IF 0=17 THEN PRINT"IT'S GET 
TING SMALLER. ": GOTO 260 
1580 IF 0=26 THEN PR!NT"WRITINe: 
": PRINT" 4.U.2. CLIMB": GOTO 26 

O 

1585 IF 0=29 THEN PRINT" INSCRIPT 

ION: ":print" never-miss co. ":e 

OTO 260 

1590 if 0=28 THEN PR I NT "THEY' RE 
VERY RUSTY.": GOTO 260 
1595 IF 0=12 THEN PR I NT "SHE LOOK 
S SCARED. ": GOTO 260 

1599 PR I NT "NOTHING SPECIAL ABOUT 
IT. ":GOTO 260 

1600 'LIGHT 

1610 IF F=0 OR F=l THEN PRINT"! 
CAN'T LIGHT SOMETHING I DON'T HA 
VE. ":G0T0 260 

1620 IF 0=17 AND0B(16)=-1 AND OB 
(17>=-1 AND Y0U=1 THEN F<1>=1:PR 
INT" YOUR CANDLE IS LIT" : OB < 19) =1 
:GOTO 260 

1630 IF 0=7 AND Y0UO13 THEN PR! 
NT "YOU CAN'T DO THAT YET.": GOTO 
260 

1640 IF 0=7 AND YDU=13 THEN PR IN 
T"YOUR LANTERN IS NOW LIT.":F(2) 
=l:60T0 260 

1 699 PR I NT " NOT I NG HAPPENED . " : GOT 

0 260 

1700 ' 

1701 IF F=0 THEN PRINT"N0TH!NG L 
IKE THAT HERE TO GO TO.": GOTO 26 

O 

1710 IF 0=19 AND F(1>=1 THEN YOU 
=2: GOTO 140 

1720 IF 0=22 AND F<3)<>1 THEN PR 
INT"! SEE NO PASSAGE HERE.": GOTO 
260 

1730 IF 0=22 AND F(3)=l THEN YOU 
=8: GOTO 140 

1740 IF 0=20 AND F<4)<>1 THEN PR 
INT"! CAN'T 60 INTO A BLOCKED TU 
NNEL":GOTO 260 

1750 IF 0=21 AND F(4)=l THEN 175 

1 ELSE 1760 

1751 FOR 1=1 TO NO 

1752 IF 1=16 OR 1=17 OR 1=10 THE 
N NEXT I 

1753 IF 0B<I)=-1 THEN PRINT"SOME 
THING WON'T FIT.": GOTO 260 

1754 Y0U=10:G0T0 140 

1760 IF Y0U=27 AND 0=23 AND F(5) 
=1 THEN YOU=28:GOTO 140 
1770 IF 0=22 AND F(3)=l AND YOU= 
7 THEN Y0U=8:G0T0 140 
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1775 IF 0=8 AND Y0U=21 AND F(6)< 
>1 THEN PRINT" I CAN'T, IT'S LOCK 
ED. ":eOTO 260 

1780 IF 0=8 AND Y0U=21 AND F(6>= 
1 THEN Y0U=22:G0T0 140 
1785 IF 0=25 AND F(8)=l AND YOU= 
31 THEN YDU=34:G0T0 140 

1799 PR I NT "I TRIED, BUT COULDN'T 
GO THERE. '■: GOTO 260 

1800 ' 

1801 IF F=0 THEN PRINT" I DON'T S 
EE ANYTHING LIKE THAT AROUND HE 
RE. ":60T0 260 

1810 IF 0=2 THEN PRINT" I'M FEELI 
NG A LITTLE DI ZZY. " : OB (2) =0: GOTO 
260 

1899 PRINT"! TRIED TO DRINK IT B 
UT COULDN'T" -.GOTO 260 

1900 ' 

1901 IF F=0 THEN PRINT" I DON'T S 
EE IT HERE.": GOTO 260 

1910 IF 0=13 THEN PRINT"SIGN SAY 
S: ": PR I NT "RETURN PRINCESS HERE T 
0 WIN. ":G0T0 260 

1920 IF 0=32 THEN PR I NT" THERE ' S 
A REVIEW FOR DUNGEON BY STEVE SH 
ERRARD, IT SAYS: ": PRINT" I LOVE D 
IGGING HOLES IN DUNGEON .": GOTO 2 
60 

1999 PR I NT "NOTHING SPEC I AL" : GOTO 
260 

2000 'DIG 

2001 IF 06(1)0-1 THEN PRINT" I N 
EED A SHOVEL TO DIG.": GOTO 260 
2010 IF Y0U=9 AND 0B(1>=-1 AND O 
B(20)=9 THEN OB (20) =0: OB (21 ) =9: F 
(4)=l:PRINT"THE HOLE IS NOW CLEA 
RED. ":60T0 260 

2099 PRINT" I TRIED, BUT NOTHING 
HAPPENED. " : GOTO 260 

2100 'KILL 

2110 IF 08(10)0-1 THEN PRINT"! 
NEED SOMETHING TO KILL WITH FI 
RST. ":G0T0 260 

2120 IF 0=11 AND 0B(10)=~1 THEN 
PLAY "VI 502T255L255 " : FORX= 1 TO 1 5 : P 
LAY " CDE ACB V- " : NE XT X : PR I NT " YOU HA 
VE KILLED THE MINOTAUR. ": OB ( 1 1 ) = 
0:F(5)=l:0B(23)=27:F0RZ=lT01000: 
NEXT: GOTO 260 

2130 IF 0=27 AND 0B(10)=-1 AND F 
=1 THEN PLAY"T202L4CL8CL16CL4CL8 
E-L 1 6DL8DL 1 6CL8CL 1 60 1 BL402C " : PR I 
NT "YOU MISSED THE MOUSE AND 

ACCIDENTLY KILLED THE PRINCES 
SI.'YOU BLEW IT CHUM M ": FOR Z = l T 
O 2000: GOTO 9030 

2140 IF 0=24 AND F=l AND Y0U=31 
THEN PLAY"V1503T205L255" : F0RX=1T 
015: PLAY"CV-" : NEXTX: PRINT" YOU KI 



LLED THE SPIDER, BUT YOUR SWORD 
WENT RIGHT THROUGH THE FLOOR 
REVEALING A CAVE ENTRANCE. ": OB (2 
4) =0: OB ( 10) =34: F (8) =1 : OB (25) =31 : 
CA=CA-l:60T0 260 

2199 PRINT"DON'T BE RIDICULOUS!" 
:60T0 260 

2200 'CLIMB 

2210 IF 0B(26)O-l THEN PRINT"! 
HAVE NOTHING TO CLIMB.": GOTO 260 
2220 IF 0B(26>=-1 AND Y0U=37 THE 
N Y0U=36:G0T0 140 

2299 PR I NT "DON'T BE RIDICULOUS." 
:GOTO 260 
3000 ' 

3010 DATA NORTH, SOUTH, EAST, WEST, 
UP, DOWN 
4000 ' 

4010 DATA IN A DARK PIT, 0,0, 0,0, 
0,0 

4020 DATA IN A LONG HALL, 0,1,6,3 

,0,0 

4030 DATA AT A TURN IN THE HALL, 
0,4,2,0,0, 0 

4040 DATA IN A SMALL TUNNEL, 3, 5, 
0,0,0,0 

4050 DATA IN A ROUND ROOM, 4, 30,0 
,0,0,0 

4060 DATA AT A TURN IN THE HALL, 
0,7,0, 2, O, 0 

4070 DATA AT A GUARDS POST, 6, 0,0 
,0,0,0 

4080 DATA IN A SMALL PASSAGE, 7, O 
,0,9,0,0 

4090 DATA IN A JAIL CELL, 0,0, 8,0 
,0,0 

4100 DATA IN A TIGHT TUNNEL, 9, 11 
,0,0,0,0 

4110 DATA IN A WIDE CORRIDOR, 12, 

20, O, O, O, O 

4120 DATA IN A SMALL HALL, 0,11,0 
, 13,0,0 

4130 DATA IN A WINDY PASSAGE, 0,0 
, 12, 14,0,0 

4140 DATA IN A LARGE CHAMBER, 0,0 
, 13, 15,0,0 

4150 DATA LOST IN MAZE-LIKE PASS 
AGES,0, 16, 14, O, 0,0 

4160 DATA IN A SLANTED PASSAGE,! 
5, 17,0,0,0,0 

4170 DATA IN A BRIGHT ROOM, 16, IS 
,0,29,0,0 

4180 DATA IN A SLANTED PASSAGE,! 
7, 19,0,0,0,0 

4190 DATA AT A DEAD-END, 18, O, O, O 
,0,0 

4200 DATA IN A SMALL ROOM, 11,21, 
0,0, o,o 

4210 DATA AT A DEAD-END, 20, O, O, O 
,0,0 
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4220 DATA IN A OLD DUSTY CHAMBER 
,21,23,0,0,0,0 

4230 DATA AT A LARGE INTERSECT 10 
N, 22, 26, 25, 24, 0,0 

4240 DATA IN A STORAGE CHAMBER, 0 
,0,23,0,0,0 

4250 DATA IN A WEAPONS CHAMBER, O 
,0,0,23,0,0 

4260 DATA ON A NARROW LEDGE, 23,0 
,0,27,0,0 

4270 DATA IN A VERY SMALL PASS,0 
,0,26,0,0,0 

4280 DATA IN THE ROYAL CHAMBER, O 
,0,27,0,0,0 

4290 DATA OUTSIDE THE DUNGEON, O, 
O, 17,0, 0, 0 

430O DATA IN A LONG CORRIDOR, 5, 3 
2,0,0,0,0 

4310 DATA IN A ROOM FULL OF COBW 
EBS, 0,33, 0,0, 0,0 

4320 DATA AT THE END OF A CORRID 
OR, 30, 0,33, 0,0,0 

4330 DATA IN A FOUL-SMELLING ROO 
M, 31, 0,0, 32, 0,0 

4340 DATA AT AN ENTRANCE TO A CA 
VE, 0,0, 41, 35, 31,0 

4350 DATA IN A LARGE STONE ROOM, 
0,38,34,36,0,0 

4360 DATA AT THE EDGE OF A PIT,0 
,0,35,0,0,37 

4370 DATA IN A PIT, O, O, O, O, O, O 
4380 DATA IN A CURVING PASSAGE, 3 
5,39,0,0,0,0 

4390 DATA IN A DAMP ROOM, 38, 0,0, 
40,0,0 

4400 DATA IN AN OLD FOOD STORAGE 

ROOM, 0,0, 39, 0,0,0 
4410 DATA IN A MUSTY ROOM, O, 42,0 
,34,0,0 

4420 DATA IN A SUPPLY ROOM, 41,0, 
46,43,0,0 

4430 DATA IN A DESCENDING PASSAG 
E, 0,44, 42, 0,0,0 

4440 DATA IN A CRUDELY CARVED PA 

SSAGE, 43, 45, 0, O, 0, 0 

4450 DATA AT A DEAD END, 44, 0,0.0 

,0,0 

4460 DATA IN A JAGGED CORRIDOR, O 
,47,0,42,0,0 

4470 DATA IN A LOW PASSAGE, 46, 49 
,0, 48, 0,0 

4480 DATA AT THE EDGE OF A SMALL 

HOLE, 0,0, 47, 0,0, 50 
4490 DATA IN A STORE ROOM, 47, 0,0 
,0,0,0 

4500 DATA IN A SMALL HOLE,0,0,0, 
0,48,0 

4999 DATA END 

5000 ' 

50 lO DATA A SHOVEL, SHO, 37 



5020 DATA A BOTTLE OF WHISKY, WHI 



5030 DATA A DRUNKEN GUARD,GUA,7 
5040 DATA A SHARP KNIFE,KNI,8 
5050 DATA A MAP, MAP, 13 
5060 DATA A KEY, KEY, 19 
5070 DATA A LANTERN, LAN, 21 
5080 DATA A LOCKED D00R,D00,21 
5090 DATA SPIKED SNEAKERS, SNE, 24 
5100 DATA A SW0RD,SW0,6 
5110 DATA THE DREADED MINOTAUR, M 
IN, 27 

5120 DATA THE PRINCESS ON A CHAI 

R SCREAMING, PR I, 28 

5130 DATA A SIGN,SIG,29 

5140 DATA MOLDY BONES, BON, 15 

5150 DATA A WATCH, WAT, 3 

5160 DATA MATCHES, MAT, O 

5170 DATA A CANDLE, CAN, O 

5180 DATA A BED, BED, 28 

5190 DATA A STONE STAIRWAY, ST A, O 

5200 DATA A CAVED IN HOLE,HOL,9 

5210 DATA A TIGHT TUNNEL, TUN, O 

5220 DATA A SMALL PASSAGE, PAS, O 

5230 DATA A SMALL OPENING, OPE, O 

5240 DATA A POISONOUS SPIDER, SP I 

,31 

5250 DATA A CAVE ENTRANCE, CAV, 0 

5260 DATA A LADDER, LAD, 50 

5270 DATA A MOUSE, MOU, 28 

5280 DATA RUSTY NAILS,NAI,49 

5290 DATA A MOUSETRAP j, TRA, 40 

5300 DATA R0PE,R0P,45 

5310 DATA A HAMMER, HAM, 42 

5320 DATA AN ISSUE OF RAINBOW MA 

GAZINE,MAG,38 

5330 DATA A CHAIR, CHA, 28 

5999 DATA END 

6000 ' 

6010 DATA GET, DROP, OPEN, CLOSE, EX 
AMINE, LIGHT, GO , DRINK, READ, DIG, K 
ILL, CLIMB 

6999 DATA END 

7000 ' 

70 1 O G0SUB7 1 30 : OPEN " O " , DV , " DATA " 
7020 PRINT#DV,YOU 
7030 FOR X=l TO NO 
7040 PRINT#DV,OB<X) 
7050 NEXT X 

7060 CLOSE: CLS: GOTO 140 

7070 G0SUB7 1 30 : OPEN " I " , DV , " DATA " 

7080 INPUT#DV,YOU 

7090 FOR X=l TO NO 

7100 INPUT#DV,OB(X) INEXTX 

7110 IF EOF <DV) THEN CLOSE 

7120 CLS: GOTO 140 

7130 CLS: PRINT" INDICATE DEVICE T 
O BE USED: " 

7140 PRINT: PRINT" C - CASSETTE 
D - DISK" 
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7150 PRINT: INPUT "YOUR CHOICE";DV 
* 

7160 IF DV*="D" THEN DV=sl ELSE I 
F DV*="C" THEN DV=-1 ELSE 7150 
7170 PRINT: PR I NT "PRESS ANY KEY W 
HEN THE DEVICE IS READY." 
7180 IF INKEY*=""THEN 7180 ELSE 
RETURN 
8000 ' 
8010 ' 

8020 MID* (OB*, 0*3-2, 3)=" 
8030 RETURN 
9000 CLS 

9010 PRINT: PRINT 

9020 PR I NT "YOU ARE NOW DEAD" 

9030 PRINT: PR I NT "WOULD YOU LIKE 

ANOTHER BAME ?";: INPUT Z* 

9040 IF LEFT*(Z*, 1>="Y" THEN RUN 

ELSE END 
9100 IF F<10)=1 THEN RETURN 
9110 IF 0B(17)=-1 THEN PRINT"YOU 
R CANDLE HAS BURNT OUT COM 
PLETELY. " 

9120 PRINT" I CAN'T SEE." 

9125 PR I NT "YOU BETTER ACT FAST B 

EFORE I FALL INTO A PIT OR HO 

LE AND BET KILLED. " 

9130 IF 0B(17>=-1 THEN 0B(17)=0: 

CA=CA~1 

9140 INPUT "WHAT SHOULD I DO"; I* 
9150 IF 1*="" THEN 9150 ELSE IF 
I*="LOOK" THEN 9120 
9155 IF I*="LIBHT LANTERN" OR I* 
="LIO LANTERN" OR I*="LIBHT LAN" 
OR I*="LIB LAN" THEN IF 0B(16>= 
-1 AND 0B(7>=-1 THEN PRINT"THE L 
ANTERN IS NOW LIT" : F < 10) =1 : 60T0 
260: ELSE PRINT" I CAN'T": GOTO 914 
O 

9160 PR I NT "I FELL INTO A HOLE BE 
CAUSE I COULDN'T SEE WHERE I 
WAS GOING. ":FOR 2=1 TO 2000:NEXT 
:GOTO 9000 

9200 IF 0B(5)<>-1 THEN PRINT" I G 
OT LOST IN MAZE-LIKE TUNNELS AND 
WANDERED AROUND UNTIL I DIED":F 
OR Z=l TO 2000: NEXT: GOTO 9000 
9210 RETURN 

9300 IF 0B(9)=-1 THEN RETURN 
9310 PR I NT "I AM ON A NARROW LEDG 
E OVER A DEEP CREVICE. " 
9320 FOR Z=l TO 1000: NEXT 

9325 V=32:F0R 0=5 TO 1 STEP-l:FO 
R N=6 TO 1 STEP -1 

9326 V= V- 1 : PL AY " T200L 1 000 " +STR* ( 



0) +"v"+str* (v) +"n"+str* <n> : next 
n:next O 

9330 print"oopps! ! i slipped and 

FELL!!":F0R Z=1 TO 2000:NEXT:B0 
TO 9000 

9400 PR I NT "THE TUNNEL CAVES IN B 
EHIND YOU. ":0B(20>=11:F<7)=1:RET 
URN 

lOOOO <!)="* DUNGEON*": 
T*(2>="BY STEVE SHERRARD" 
10010 FOR A=7 TO 167 STEP 32 
1 0020 CLS : PR I NTSA , T* < 1 ) : PLAY " T23 
5L255V26CDE ACBP 1 P 1 " : NEX T A 
10025 N=0 

10030 FOR A=255 TO 231 STEP-1 
10040 N=N+l:N*=MID*(T*(2) , 1,N) 
1 0050 PR I NT@A , N* : PL A Y " 0 1 V20CDE AC 
B":NEXT 

10060 SCREEN O, 1 

10100 PLAY"V26L29T9":F0R 0=1 TO 

5:F0RT=1 TO 12:PLAY"0"+STR*<0)+" 

N"+STR*(T> :NEXTT,0 

10105 FOR A=l TO 1000: NEXT 

10110 PRINT: PRINT: INPUT"NEED INS 

TRUCTIONS (Y/N) ?";Z* 

10120 IF LEFT*<Z*, 1)<>"Y" THEN C 

LS: RETURN 

10130 CLS 

10140 IN*(1>=" » D U N O E 

ON* 

THIS IS AN ADVENT 
URE THAT TAKESPLACE IN A HUGE UN 
DERGROUND DUNGEON. THE OBJ EC 

T IS TO FIND YOUR WAY THROUGH T 
HE DUNGEON TO THiE ROYAL CHAMB 
ERS WHERE THE" 

10150 IN*<2>="PRINCESS IS BEING 
HELD CAPTIVE. USE 2-WORD COMMAND 
S EXCEPT WHEN 1) SPECIFYING DIRE 
CTI0N(N,E,S,W)2) SAVING OR LOADI 
NG GAME FROM TAPE < SAVE/LOAD 

) 3) LOOK AND INVENT 

ORY " 

10160 FOR A=0 TO LEN < IN* < 1 ) > -1 
10170 PRINT@A,MID*<IN*<1> , A+1, 1) 
10180 PLAY"T255L25503V15CEC" 
10190 NEXT A 
10200 B=A+l:N=l 

10210 FOR A=B TO B+LEN ( IN* <2) ) 

10220 PRINT@A,MID*<IN*(2> ,N, 1) 

10230 PLAY" 03V 15CEC" 

10240 N=N+l:NEXT A 

10250 PRINT: INPUT "PRESS CENTER3 

TO START" ;Z* 

10260 CLS: RETURN 



An Unexploj* 
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The day arrives when you finally have enough 
courage to leave the small town where you 
grew up. This dreary midwest town simply 
does not provide the career opportunities that a 
larger city has. It just seems that nothing is the 
same after college — your friends are all gone, your 
neighbors are nasty, and even your pet dog died. 

So, you pack your belongings and drive out of 
town, not really knowing exactly where you are 
going. Many hours pass and you realize that you 
have been in such deep thought, you have not paid 
any attention to the direction in which you are 
driving. Your map is useless because you have no 
point of reference since you have been driving 
down desolate, country roads. You cannot even 
remember the last time a car passed, and there has 
not been a gas station or house for many miles. 

Suddenly, a deer runs in front of your car and 
you swerve into a ditch. After making several 
attempts to drive out of the muddy trench, you 
climb out of the car and start walking down the 
narrow, country road. What a way to start off a new 
and exciting life, you think. 

After walking nearly five miles you see a beauti- 
ful, old mansion and briskly walk toward it. As you 
approach it, you begin to wonder if anyone lives 
there because it looks so empty, lonely and isolated. 
Still, you know this mansion may be your only 
chance of getting help because you are tired and 
soon it will be dark. 

When you knock on the door, no one answers, 
but you notice the door is unlocked. That's funny, 
you could swear you saw something pass in front of 
the living room window. Do you dare enter the 
Unexplored Mansion and see what ... or who awaits 
you? If so, POKE 25,6: POKE 26,1:NEW:CL OAD 
and good luck! 
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(Tim Hanson, currently a junior at Tartan Senior 
High in Oakdale, Minn., writes programs for a real 
estate company. He has written several programs for 
the Color Computer and is a member of a local Color 
Computer club.) 



1 POKE65495,0 

2 CLEAR90 

3 Q0SUB96: CLEAR: DIM L«(31),A<31, 
4) , 0* <29, 3) , Q (29) : F0RX=1T031 : REA 
DL*<X) :F0RY=1T04:READA<X,Y> :next 
Y, X IFOR X=1T029:F0RY= 1T03: READ 0* 

(X,Y) :NEXT:READ0(X) :next:FORX=it 
04:readd*(X) :next: z*=chr*<12S) : y 

*=CHR* < S ) : L=25 : FORX= 1 TO 1 2 : READT : 
0*(9, 1)=0*(9, 1)+CHR*(T> :NEX 

4 CLS : PR I NT " LOCAT I ON : " ; : I FL< 240 
RL >29THENPR I NT " I N THE " ELSEPR I NT " 
OUTSIDE, " 

5 PRINTL* <L> : PRINT: PRINT"VISIBLE 
OBJECTS: ":F0RX=1T029: IFO(X>=L T 

HENPRINTO*<X, 1) :NEXTELSENEXT 

6 PRINT: PRINT"DIRECTIONS AVALIAB 
LE: ":F0RX=1T04: IFA<L,X)<>L THENP 
RINTD*(X) ; :nextelsenext 

7 IFL=2ORL=16ORL=30ORL=20THENPRI 
NT " UP " ELSE I FL=S0RL=3 1 ORL= 1 90RL= 
1 5THENPR I NT " DOWN " ELSE I FL=29 ANDF 
9= 1 THENPR I NT " EAST " ELSE I FL= 1 2AND 
F5= 1 THENPR INT" DOWN " ELSE I FL=22 AN 
DF7=1 THENPR I NT "NORTH " 

8 I FL=29ANDFS=0THENPR I NT : PR I NT " T 
HE DOOR TO THE TOWER IS LOCKED." 

9 PRINT: PRINTZ*; :B*="" 

1 0 A*= I NKE Y* : I FLEN < B* > >25THENPR I 
NT Y* : G0T09ELSE I FA*= " " THEN 1 1 ELSEP 
LAY " T255 A " : I F A*=CHR* (13) THENPR I N 
TY* : SOTO 1 8ELSE I F A*= Y* ANDB*= " " THE 
Nl 1ELSEIFA*=Y*THENB*=LEFT* (B*, LE 
N(B*)-1) :PRINTY*+Y*+Z*; :ELSEB*=B 
*+A*: PRINTY*+A*+Z*; 

11 I FB= 1 THEN 1 5ELSE I FL< >22THEN 1 0E 
LSE I FM= 1 THEN 1 0ELSEC=C+ 1 : I FC< 1 1 0T 
HEN10ELSEC=0: K=K+1 : IFK=4THENPRIN 
TY*"THE MONSTER FINISHED YOU OFF 
! YOU ARE NOW DEAD. " : B0T075ELS 
EPRINTY*: Y=RND<3> :0N Y eOT012, 13 
,14 

12 PR I NT "BASH! THE MONSTER DEALS 
A NASTY BLOW ! " : G0T09 

13 PRINT"KONS! SMASH! YOU'RE REA 
LLY GETTING HURT BAD !": GOTO 
9 

14 PRINT"KERPOW! BONK! YOU'RE LO 
S I NG CONSC I OUSNESS ! " : G0T09 
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15 Bl=Bl + l: IFBK150THEN10ELSEPRI 
NTY«"KER-POOOOOWWW! ! ! THE BOMB S 
OES OFF ! " : I FL=LL ORO (21) =99THEN 
PR I NT "YOU WERE TORN APART BY THE 

BOMB! THE BOMB WAS RIGHT N 
EXT TO YOU WHEN IT WENT OFF!": 
60T075 

16 0 <21 ) =0: IFLL=5THEN0* (24, 1) *"A 
VERY BADLY DAMAGED SAFE. IT A 

PPEARS THAT THE DOOR HAS BEEN J 
ARRED LOOSE . " : FC= 1 : B=0 : 00T09 

17 PR I NT "THE BOMB WENT OFF, BUT 
YOU DID NOT USE IT FOR THE RIGH 
T PURPOSE! NOW YOU WILL N 
OT BE ABLE TO FINISH THIS ADV 
ENTURE. " : B=0: IFLL=22THEN0* (29, 1 > 
="A BADLY DAMAGED MONSTER CORPSE 
":M=1:G0T09ELSE9 

18 1 FLEN ( B* ) =0THEN9ELSE I FLEN ( B* ) 
> 1 THEN24ELSE IFB*="N"THENL=A(L,1> 
ELSE I FB«= " S " THENL= A ( L , 2 > ELSE I FB« 
= " E " THENL=A ( L , 3 ) ELSE I FB*= " W " THEN 
L= A ( L , 4 ) ELSE I FB*= " U " THEN I FL=2THE 
NL= 1 5ELSE I FL=20THENL=8ELSE I FL=30 
THENL=3 1 ELSE I FL= 1 6THENL= 1 9 

1 9 I FB*= " D " THEN I FL= 1 9THENL= 1 6ELS 
E I FL=3 1 THENL=30ELSE I FL= 1 5THENL=2 
ELSE I FL= 1 2ANDF5= 1 THENL=5ELSE I FL= 
12ANDF5=0THENPRINT"YDU HAVE TO 0 
PEN IT.":G0T09 

20 I FB*= " D " ANDL=eTHEN I FO ( 1 X >99T 
HENPR I NT " I T ' S TOO DARK . . . " : G0T09 
ELSE IFFE=0THENPRI NT "LIGHT YOUR T 
ORCH ! " : GOTO9ELSEL=20 

21 I FB*= " E " ANDL=29THEN I FF9= 1 THEN 
L=30 

22 I FB*= " N " ANDL=22ANDM= 1 ANDF7= 1 T 
HENL=23 

23 G0T04 

24 C*=LEFT*(B*,3) :FORX=1TO10: IFM 
ID*(B*, X, 1)=" "THEND*=MID*(B*, X+ 
1,3) rNEXTELSENEXT 

25 V=0:FORX=1TO29: IFD*=0*(X,3)TH 
ENZ=X : V=l : NEXTELSENEXT 

26 I FC*= " GET " THEN44ELSE I FC*= " LOO 
" THEN50ELSE I FC*= " REA " THEN5 1 ELSE I 
FC*= " DRO " THEN55ELSE I FC*= " BU I " THE 
N60ELSE I FC*= " T AK " ANDD*= " I NV " THEN 
64ELSE I FC*= " OPE " THEN66ELSE I FC*= " 
UNL"THEN71 

27 I FC*< > " USE " THEN28ELSE I F ( D*= " K 
E Y " ORD*= " LOG " ) THENPR I NT " TRY ' UNL 
OCK' . ":G0T09ELSEIFD*="SH0"THENC* 
= " D I Q " ELSE I FD*= " GUN " THENC*= "FIR" 
ELSE I FD*= " BOM " THENC*= " SET " : D*= " T 
I M " ELSE I FD*= " TEL " THEN30ELSEPR I NT 
"SORRY, YOU CAN'T USE THAT.": GOT 
09 

28 I FC* <> " SET " THEN3 1ELSEIFD*="TI 
M"AND (O (21 ) =990RO (21 ) =L) THENB=1 : 



PRINT"CLICK. . .TIC, TIC, TIC...": 
I FO ( 2 1 ) =L THENLL=L : B0T09ELSEPR I N 
T"YOU HAD BETTER DROP IT...": GOT 
09 

29 PR I NT " HUH? ! " : G0T09 

30 IF0(13)<>99THENPRINT"WHAT TEL 
ESCOPE? " : G0T09ELSE I FL=3 1 THENPR I N 
T"YOU SEE WRITING CARVED OUT OF 
A TREE FAR AWAY: ": PRINT "THE KEY 
TO YOUR SUCCESS IS BURIED I 
N THE FRONT LAWN. " : G0T09ELSEPRIN 
T"YOU AREN'T HIGH ENOUGH .": 60T09 

31 IFC*="DIG"THENIFO ( 18) < >99THEN 
PR I NT "YOU HURT YOUR HAND.":G0T09 
ELSEPRINT"DIG. . .DIG. . .DIG. . . ": IF 
( L=25 ANDO ( 9 ) =0 ) THENPR INT" YOUR D I 
GOING UNCOVERS A GOLDEN KEY ! " : 0 
(9)=25:G0T09ELSEPRINT"Y0U FIND N 
OTHING. ":G0T09 

32 IFC*< >"LIG"THEN36ELSEIFD*="MA 
T " THEN I FO ( 20 ) =99THENPR I NT " I T BR I 
EFLY FLARES UP AND D I ES . " : G0T09E 
LSEPRINT"WHAT MATCH?" : G0T09 

33 I FD*= " TOR " THEN I FFE= 1 THENPR I NT 
"IT IS ALREADY LIT!": G0T09ELSE I F 
0 ( 1 X >99THENPR I NT " WHAT TORCH? " : G 
0T09ELSE I FO ( 20 )< >99THENPR I NT " W I T 
H WHAT?":G0T09ELSEPRINT"THE TORC 
H IS NOW ABLAZE. ":FE=1:G0T09 

34 I FD*= " POW " THEN I FO ( 5 ) =99AND0 ( 2 
0)=99THENPRINT"WHOOOSH! ! THE POW 
DER BURSTS INTO FLAME, DESTR 
OY I N6 YOUR FACE ! " : G0T075ELSE 
PR I NT "HOW ARE YOU GOING TO BURN 
IT?":G0T09 

35 PRINT"! TRIED, BUT IT WONT BU 
RN. ":G0T09 

36 i fc*< > " loa " then37else i fd*= " 6u 
n " then i f ( 0 ( 5 ) =99and0 ( 7 ) =99and0 ( 8 
)=99)thengn=l:print"the gun is f 
ully loaded. " : 0 (5) =0: o (8) =0: f3=0 
:goto9:elseprint"you don't have 
ever yth i no you need . " : g0t09 

37 i fc*< > " k i l " then40else i fd*= " mo 
n" ando (7) < >99andl=22andm=0thenpr 
i nt "you grab the monster and fli 
ng it to the ground! the monste 
r, in turn, grabs you and proce 
eds to pound you into the damp 

cement floor. you are dead." 

: G0T075 

38 IF0(7)<>99THENPRINT"Y0U DON'T 
HAVE IT.": G0T09ELSE I FD*= " MON " TH 

EN I FGNOl THENPR I NT "YOUR GUN ISN' 
T LOADED . " : G0T09ELSEPR I NT " BANG ! " 
: 6N=0: IFL=22ANDM=0THENPRINT"YOU 
HAVE KILLED THE MONSTER !": M= 1 : O* 
(29,1)="THE DEAD CORPSE OF A MON 
STER. " : G0T09ELSE9 

39 PR I NT "YOU REALLY SHOULDN'T KI 
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LL UNLESS IT'S NECESSARY." 

: G0T09 

40 I FC*= "WIN" THEN I FD«< > " CLO " THEN 
PRINT"YOUR CRAZY. " : GQT09ELSEIF0 ( 
3>=99THENPRINT"WIND, WIND, WIND, 

WIND... IT'S TICKING. ":FA 

=1:0*<3,2)="IT'S FULLY WOUND. ":Q 
0T09ELSEPR I NT " WHAT CLOCK? " : G0T09 

4 1 I FC*= "FIR" THEN I FD*< > " GUN " THEN 
PR I NT " TRY ' L I GHT ' " : 60T09ELSED*= " 
M0N":Q0T038 

42 I FC*= " CLE " THEN4ELSE I FC*= " I NV " 
THENC*="TAK" : D*=" INV" : G0T026ELSE 
I FC*= " TAK " THENPR I NT " TRY ' GET ' . " : 
G0TO9 

43 PRINT"! DON'T KNOW WHAT YOU M 
EAN. ":G0T09 

44 U I =0 : 0 1 =0 : I FD*= " POW " ANDF3=0AN 
DL=21THENPRINT"Y0U GRABBED A SMA 
LL HANDFUL OF IT. " : F3=l : O <5) =99 
: 60T09 

45 IFV=0THENPRINT"YOU CAN'T GET 
THAT. ":G0T09ELSEF0RX=1T023: IFO<X 
) =99THEN0 1=01 + 1: NEX TELSENE X T 

46 IFOl >3THENO1=0: UI=1 : PRINT"UGH 
! YOU NEARLY BROKE MY BACK! BEC 
AUSE YOU FEEL YOU SHOULD GET EVE 
RYTHING YOU SEE YOU HAVE DRO 
PPED EVERYTHING! ":F0RX=1T023: IFO 
( X > =99THEN0 < X > =L: NEXTELSENEXT 

47 I FU I = 1 THENG0T09ELSE I FO < Z ) =99T 
HENPRINT"YOU ALREADY HAVE IT!":G 
0T09ELSEIF0(Z><>L THENPR I NT "I DO 
N'T SEE IT HERE. ":G0T09ELSEIFZ>2 
3THENPRINT"IT'S much too CUMBERS 
OME. ":Q0T09 

48 IFZ=19THENPRINT"Y0U DISCOVER 
A HIDDEN DOOR UNDERNEATH IT 
! " : F 1 = 1 ELSE I FZ= 1 4 ANDF2=0THENF2= 1 
: PR I NT "YOU FIND A GUN UNDERNEAT 
H I " : 0 (7> =24ELSEIFZ=23THENIFM=0TH 
EN74ELSE I F Z =23THENPR I NT " YOU FIND 

A SMALL WOODEN DOOR BEHIND T 
HE DRUM. ":F6=1 

49 PRINT"O.K. YOU HAVE IT.":0<Z) 
=99:G0T09 

50 I F ( D*= " GAR " ANDL= 1 1 ) THENPR I NT " 
WHAT'S SO SPECIAL ABOUT A BUNCH 
OF ROCKS? " : G0T09ELSE I F V=0THENPR I 
NT "THERE IS NOT MUCH TO SEE.": GO 
T09ELSE I FO ( Z ) =990R0 < Z ) =L THENPR I 
NTO* < Z , 2 ) : G0T09ELSEPR I NT " I DON ' T 

HAVE IT OR SEE IT. ":G0T09 

5 1 I FD*< > " BOO " THEN53ELSE I FO ( 1 6 ) = 
990R0 < 1 6 ) =L THENPP= 1 : CLS: PR I NT : P 
RINT"HOW TO BUILD A TIME BOMB":P 
R I NT : PR I NT " MATER I ALS NEEDED : " : PR 
INT" 1) A TIMING DEVICE" : PRINT" 

2) A SMALL LENGTH OF FUSE": PR I 
NT" 3) A SMALL METAL CONTAINER" 



: PR I NT" 4) TWO BATTERIES" 

52 IFPP=1THENPRINT" 5) AN OUNCE 
OF GUNPOWDER": PRINT" 6) SOME E 

LECTRICAL WIRING" : PRINT" 7) A M 
ATCH ": PR I NT : PR I NT " SOME KNOWLEDGE 
OF THE USE OF TIMEBOMBS IS D 
ESIRABLE. ":G0TD9 

53 I FD*= " PAP " THEN I F ( O ( 1 7 > =990R0 ( 
Z > =L ) THENPR I NT : PR I NT " I NSTRUCT I ON 
S FOR USE OF TIME BOMB:":PRIN 
T: PRINT" 1> BUILD BOMB": PRINT" 2 
) set timer ON BOMB": PRINT" 3) 6 
ET AWAY QU I CKL Y ! " : FB= 1 : G0T09 

54 PR I NT " TRY ' LOOK ' " : G0T09 

55 IFV=0THENPRINT"YOU CAN'T DROP 
THAT ! " : G0T09ELSEIFZ=12THEN5SELS 

E I F Z =2 1 THEN56ELSE I FO < Z X >99THENP 
R I NT "YOU DON'T HAVE IT.":G0T09EL 
SEPRINT"THUD! O.K. YOU DROPPED I 

T. ":o(Z>=l:gotd9 

56 I FO < 2 1 > =99THEN0 ( 2 1 ) =L : PR I NT " C 
LUNK ! IT'S DROPPED . " : I FB= 1 THENLL 
=L: G0T09ELSE9 

57 PR I NT "WHAT B0MB?":G0T09 

58 IF<L=1SANDO(11)=0ANDO<Z>=99>T 
HENPR I NT "SKELETON: 'THANK YOU VE 
RY MUCH' THE SKELETON DROPS A FU 
SEAT YOUR FEET. ":O(Z>=0:O(11 
) =L : G0T09ELSE I FO ( Z ) =99THENPR INT" 
O.K. YOU DROPPED IT. " : 0 (Z ) =L: GOT 
09 

59 PR I NT "YOU CAN' T. " : G0T09 

60 I FD*<>" BOM "THENPR I NT "YOU CAN' 
T BUILD THAT. ":G0T09ELSEF0RX=2T0 
6 : I FO ( X )< >99AND0 ( X ) <>L THEN63ELS 
ENEXT: IFO ( 1 1 X >99AND0 < 1 1 ) < >L THE 
N63ELSEIFO(20><>99ANDO<20><>L TH 
EN63ELSEF0RX =2T06 : 0 < X > =0 : NE X T : O < 
11)=0:F3=0 

61 IFFA=0THENPRINT"KA~BOOM! ! ! TH 
E BOMB WENT UP IN YOUR FACE! <Y 
OU FORGOT TO WIND THE CLOCK).": 
G0T075 

62 PR I NT "GOOD JOB! YOU HAVE SUCC 
ESSFULLY BUILT THE BOMB ! " : 0 (21 ) = 
L:G0T09 

63 PR I NT "YOU DON'T HAVE ALL OF T 
HE MATERIALS NEEDED. ": GOTO 
9 

64 PR I NT "YOU HAVE THE FOLLOWING: 
" : FORX= 1 T023 : I FO ( X ) =99THENPR I NTO 
* ( X , 1 > : NEXTELSENEXT 

65 G0T09 

66 I FD*= " DOO " THEN I FL= 1 2ANDF 1 = 1 TH 
ENF5=l:PRINT"THE HIDDEN DOOR IS 
OPEN. " : G0T09ELSEIF < L=22ANDM= 1 AND 
F6=1)THENPRINT"CREEEEEK! THE TIN 
Y DOOR IS OPEN. ":F7=l:GOT09 
ELSE I FL=29ANDFa=0THENPR I NT " THE D 
OOR IS LOCKED. ":G0T09 
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67 I F ( D*= " DOO " ORD*= " SAF " ) ANDL=5A 
NDFC=1THENPRINT"A LOCKPICK, A NO 
TE, AND A BULLET FALL OUT 
OF THE SAFE. ":0<8)=5:0<15)=5:0(1 
0 ) =5 : G0T09ELSE I F < D*= " DOO " ORD*= " V 
AU" ) ANDL=23ANDFD=1THEN73 

68 I FD*= " DOO " THEN I FL=29 ANDFS= 1 TH 
ENPRINT"THE DOOR SWINGS INWARD. " 
:F?=l:G0T09 

69 I FD*= " BOX " ANDD (13) =0AND < 0 < 22 ) 
=L 0R0<22>=99)THENPRINT"INSIDE L 
lES A TELESCOPE. ":0<13)=L:B0T09E 
LSE 1 FD*= " CAB " ANDO < 6 > =0ANDL=9THEN 
PR I NT "A SOUP CAN FALLS OUT. ":0<6 
) =9 : eOT09ELSE I FD*= " BUR " ANDL= 1 7 AN 
DO(1)=0THENPRINT"YOU FIND A TORC 
H INSIDE. ":0(1>=17:G0T09 

70 I F ( D*= " W I N " ANDL=5 > THENPR I NT " U 
GH! GRUNT! POP! AIIIIIIEEY! T 
HE WINDOW POPS OPEN AND THE M 
OMENTUM THROWS YOU OUT THE W 
INDOW ONTO THE VERANDA. SLAM! T 
HEN THE WINDOW SHUTS AGAIN. ":L=2 
7 : G0T09ELSEPR I NT " I T WON ' T OPEN . " 
: 60T09 




71 I FD*= " DOO " ANDL=29 ANDO (1 0 > =99A 
NDFS=0THENF8=l:PRINT"CLICK! IT I 
S NOW UNLOCKED. ":G0T09ELSE IF <D*= 
" DOO " ORD*= " VAU " ) ANDL=23 ANDO ( 9 ) =9 
9THENPRINT"CLICK. . . IT'S OPEN! ":F 
D=l:Q0T09 

72 PR I NT "YOU HAVN'T THE MEANS... 
" : GOT09 

73 PR I NT "YOU OPEN THE VAULT ONLY 
TO FIND. . . ":FORX=lTOli00:N 

EXT: PRINT: PRINT"FOUR MILLION DOL 
LARS IN GOLD BARS! THE MANS 10 



N FORTUNE IS NOW YOURS! ":FORX 
=1TO1500: NEXT: PRINT: PRINT" < 
< < CONOR ATULAT I ONS » > " : END 

74 PR I NT "THE MONSTER GRABS YOU A 
ND LIGHTLY TOSSES YOU THRO 
UGH THE WALL." 

75 PR I NT "THE GAME IS OVER FOR NO 
W. DO YOUWISH TO PLAY AGAIN? <Y 
OR N) " 

76 A«= I NKE Y* : I FA*= " " THEN76ELSE I F 
A*="Y"THENRUNELSEPRINT"NOT TOO A 
DVENTURESOME , EH? " : END 

77 DATA "ENTRANCE HALL. " , 25, 2, 1 , 1 
, "BALLROOM, THERE IS A WINDING 

STAIRCASE GOING UP AND A DOORW 
AYTO THE WEST LEADING OUT. ",1,7, 
3, 27, "DINING HALL. ",1,8,4,2, "BAT 
HROOM. ",4,4,4,3 

78 DATA "SECRET ROOM, THERE IS A 
WINDOW FACING WEST, BUT YOU CAN 
'T SEE THROUGH IT BECAUSE IT'S 
COATED WITH GRIME. ", 5, 5, 5, 5, "LI 
BRARY, LEARN TO READ, READ TO LE 
ARN. ",6,6, 10,6 

79 DATA "BAR, LET US HAVE A TOAST 
TO ADVENTURES! ", 2, 10,7,7, "K 

ITCHEN, A DARK STAIRCASE LEADS D 
OWN. ",3,8,9,8, "PANTRY. ",9,9,9,8, 
"STUDY. ",7,10,10,6, "OVERLOOK, YO 
U HAVE A NICE VIEW OF THE ROCK 
GARDEN FROM HERE. " , 1 1 , 1 1 , 15, 1 1 

80 DATA "MASTER BEDROOM, WHERE TH 
E MASTERSLEPT. ",12, 15, 12, 12, "GUE 
ST ROOM. ",13,16,13,13, "BATHROOM. 
", 14, 14, 14, 16, "LONG CORRIDOR, A 
STAIRCASE WINDSDOWN BELOW. ",12,1 
7, 16, 11, "SHORT HALLWAY, A LADDER 

RUNS UP TO THE ROOM ABOVE. ",13, 
16, 14, 15 

81 DATA"BEDROOM. ", 15, 18, 16, 17, "S 
KELETON CLOSET. ", 17, 18, 18, 18, "AT 
TIC, A LADDER LEADS DOWN. ",19, 19 
, 19, 19, "CELLAR, THERE IS A STRAN 
GE SMELLCOMING FROM THE EAST, A 
STAIR CASE GOES UP. " , 20, 21 , 22, 
20 

82 DATA "ARSENAL, THERE IS A BARR 
EL OF GUN POWDER IN THE CORNER 
. ",20,21,21,21, "WINE CELLER, YUC 
K! IT REALLY SMELLS BAD IN HE 
RE! ",22,22,22,20, "HIDDEN ROOM NO 
RTH OF THE WINE CELLAR. IT IS 
VERY DUSTY IN THISROOM. " , 23, 22, 2 
3,23, "IN THE ROCK GARDEN." 

83 DATA24,27,25,24, "ON THE FRONT 
LAWN, THE MAIN ENTRANCE TO 

THE MANSION IS TO THE SOUTH.", 
25, 1,26,24, "IN THE EAST GARDEN." 
, 26 , 26 , 26 , 25 , " ON THE VERANDA , AN 
ENTRANCE TO THE MANSION LIES T 
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□ THE EAST. ",24,28,2,27 

84 DATA" IN THE WOODSY HILLY AREA 
BEHIND THE MANSION. THERE IS J A 

GGED STONE TOWER STICKING OUT 
OF THE WOODS TO THE SOUTH. ",27, 
29, 28, 28, "IN VERY DARK WOODS. YO 
U ARE AT THE TOWERS ENTRANCE, W 
HIGH IS FACING WEST. ", 28, 29, 29 
,29 

85 DAT A "TOWER'S LOWER ROOM, A RO 
PE LADDER GOES UP. ",30,30,3 
0,29, "TOWER'S OBSERVATION ROOM, 
YOU CAN SEE A VERY GREAT DISTA 
NCE, A ROPE LADDER GOES DOWN.", 
31,31,31,31 

86 DATA A TORCH, "IT HAS BEEN USE 
D BEFORE . " , TOR , 0 , BATTER I ES , " THER 
E ARE TWO OF THEM. ", BAT, 28, AN OL 
D ALARM CLOCK, "IT NEEDS WINDING. 
",CL0,13,A SPOOL OF ELECTRICAL W 
IRE, "IT IS LONG AND SKINNY. ",WIR 
,20, A HANDFUL OF GUN POWDER, "IT' 
S GRAY. " 

87 DATAPOW,0,AN EMPTY SOUP CAN," 
reads: CHICKEN NOODLE" , CAN, 0, A G 
UN, "IT IS A VERY OLD PISTOL. ",GU 
N,0,A SILVER BULLET, "INSCRIPTION 
: PROPERTY OF THE LONE RANGER 
.",BUL,0,"A GOLD KEY: " , " INSCRIPT 
ION: FINDERS KEYPERS. " , KEY, 0, A S 
ILVER LOCKPICK 

88 DATA" INSCRIPTION: USE TO UNLO 
CK. . . ",LOC,0, A SHORT FUSE, "IT'S 
VERY SHORT. ",FUS,0, A SKULL CAP," 
SKINNY BONES HATS FOR SKELETONS 

I NC . " , CAP , 28 , A TELESCOPE , " READS : 
USE IN A HIGH PLACE. ", TEL, O 

89 DATAA LARGE ROCK, "IT MUST WEI 
GH AT LEAST FIFTY POUNDS. ",R0 
C,24,A NOTE, "NOTE READS: 

LET EVERYBODY KNOW 
, (INCLUDING THE APE 

S), THAT A TREASURE IS 

HIDDEN, BEHIND ROTTING GRA 

PES. ",NOT,0 

90 DATA A BOOK, "IT'S VERY DUSTY. 
",B00,6,A SHEET OF PAPER, " INSTRU 
CTIONS FOR USE OF TIME BOMB. " 
, PAP, 4, A SHOVEL, "IT IS VERY OLD 
AND RUSTY. ",SH0,30, AN ORIENTAL R 
U6,"IT HAS VERY INTRICATE DESIGN 

WORK. ",RUG, 12 

91 DATAA BOOK OF MATCHES, "BOOK R 
EADS: 'COLLEGE DEGREES BY MAIL, 



CALL (612) 542-6660' ", MAT, 8, A TI 
ME BOMB, "IT APPEARS TO BE MADE 0 
UT OF JUNK. ", BOM, O, AN OLD WOO 
DEN BOX, "IT HAS SAILING SHIPS EN 
GRAVED ON THE SIDES. ", BOX, 19, A 
LARGE DRUM OF CHABLIS 

92 DATA "IT IS CAKED WITH DUST." 
,DRU,22 

93 DATAA SAFE, "IT HAS A COMBONAT 
ION LOCK, BUT THE DIAL IS TOO R 
USTY TO MOVE, YOU'LL HAVE TO FI 
ND ANOTHER WAY TO OPEN IT.",SAF, 
5, A LARGE VAULT, "IT IS LOCKED - 
YOU NEED A KEY TOOPEN IT.",VAU,2 
3, A CABINET, "IT'S MADE OUT OF WO 
OD. ",CAB,9 

94 DATAA BUREAU, "IT'S SOLIDLY BU 
ILT. ",BUR, 17, A SKELETON, "IT IS K 
IND OF SKINNY. ",SKE, 18, A MONSTER 
,"IT HAS FANGS, THREE EYES, 

A HORN, SHAGGY FUR, BIG FEET, 
AND IS ABOUT NINE FEET TALL.", 
MON, 22, NORTH , SOUTH , EAST , WEST 

95 DATA13, 137, 134, 140, 140, 141 , 13 
, 134, 137, 143, 135, 135 

96 CLS0:F0RX=22T031:F0RXX=0T063: 
SET (XX, X, 1) :NEXTXX, X:R=23:RR=40: 
F0RX=4T010STEP2: R=R-1 : RR=RR+1 : FO 
RR1=R T0RR:F0RFD=X TOX+l:SET(Rl, 
FD,8) :NEXTFD,R1, X:F0RX=1ST045:F0 
RR=12T025:SET(X,R,7) :NEXTR, X:FOR 
X=14T017 

97 F0RR=18T023:SET(X,R,3) :SET(X+ 
32, R, 3) : NEXTR, X : F0RX=21T024: FORR 
=17T022 

98 RESET ( X, R) : RESET (X+18,R) : NEXT 
R , X : FOR X=2aT035 : F0RR=20T027 : SET ( 
X , R, 3) : NEXTR, X : R=20: F0RX=27T031 : 
R=R-1 : RESET (X, R) : NEXT: R=14: FORX= 
32T036 : R=R+ 1 : RESET ( X , R > : NEXT : R=3 
2 : RR=3 1 : FOR X=17T019: R=R- 1 : RR=RR+ 
1:F0RFD=R TORR:SET(FD, X,3> :NEXTF 
D, X 

99 F0RX=30T033:F0RR=21TD27: RESET 
(X,R) :NEXTR, X:R=18:F0RX=13T017:R 
=R-1:F0RRR=X T017:SET<RR,R,a> :ne 

xtrr , X : r= 1 2 : forx=46T050: r=r+ i : fo 

RRR=X T046STEP-1 : SET (RR, R, 8) : NEX 
TRR, X 

1 00 PLAY " T4L402AABBL8EEGGL 1 A " : FO 
RX=lT0999:NEXT:PRINTe6, "an "CHR* ( 
128) "unexplored "CHR* (128) "mansio 
n " ; : PLAY " L4T4C " : FORX= 1 TO 1 200 : NEX 
T: SCREENO, 1 : RETURN 




Rick Townsend 
and 

Thomas Hollerback 







For nearly a century, your creator has made a 
superior race of robots on a small planet. He 
is a highly regarded, powerful person in the 
galaxy and is the epitome of virtue. 

You are a Combutron X robot, one of the most 
advanced and most loyal of his races, and your 
assignment is to defend the good side of the uni- 
verse. Recently, the warlord, master of the evil 
alliance, has developed a secret plan to control all 
the planets. To succeed, he must capture and kill 
your creator. Then, the robot race will not be prop- 
erly maintained, and the robots will expire — elim- 
inating any resistance to the warlord's evil clutches. 

The warlord's plans are working successfully, as 
he has captured the creator and placed him some- 
where on board his space station Sparta. Your 
mission is to beam aboard Sparta, find your creator 
and escape before your energy runs out. 

To begin this exciting Adventure, type POKE 
25,6: POKE 26,1: NEW: CLOAD. 

Good luck as you attempt your Escape From 
Sparta. 
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END . . .08D5 



Listing 1 

1 REM »*» PROGRAM INSTR : INSTRU 
CTIONS FOR ESCAPE FROM SPARTA 

2 REM »»* BY RICK TOMNSEND & THO 
MAS HOLLERBACK 

10 CLS: CLEAR 700:PCLS 
20 DIMA«(20> 

30 F0RX=1T011:READA*<X> :NEXTX 

40 F0RX=«1T0100:R=RND<191) :C=RND( 

255) :PSET<C,R) :NEXTX 

50 PM0DE4, 1 : SCREEN 1 , 1 

60 DRAWSS; BM75, 34"+A* < 1 ) +A* < 1 1 ) 

+A«(2)+A*(11)+A«<10) 

70 DRAW " S8 ; BM 1 23 , 34 " +A* < 3 ) +A* ( 1 1 

)+A*<4>+A*(ll)+A«<l) 

80 DRAWSS; BMi 16, 55"-i-A« <5> -t-"S8$ B 

Ml 16, 76"+A« <6) ■•■"SS; BMl 16, 97"+A» < 

7) +"S8; BMl 16, 1 1S"+A* <8> 

90 DRAWSS; BM75, 139"+A« <2> +A* < 1 1 

) +A* <4> +A« < 1 1 ) +A1I <3> +M < 1 1 ) +A« <6 

) +A* (11) +A« (9) +A* < 1 1 ) +A* (3) 

100 DATA "U3R4L4U3R4BD6L4R4" 

1 1 0 DATA " BUFR2EUHL2HUER2FBD5 " 

120 DATA "U4E2F2D2L4R4D2" 

130 DATA "U6R3FDBL3BR4BD3" 

140 DATA "U3R4L4U3R4BD6" 

150 DATA"U6R3FDGL3RF3" 

160 DATA"R4L4U6R4D6" 

170 DATA"U6F2E2D6" 

180 DATA"BU6R4L2D6BR2" 
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190 DATA"BR4BUGL2HU4ER2F" 
200 DATA"BR4" 

210 FOR X=l TO 4200: NEXT X 

220 CLS: PR I NT "WRITTEN AND PROBRA 

MED BY:" 

230 PRINT "RICK TOWNSEND «(":PRINT 

"THOMAS HOLLERBACK" 

240 PRINT: PRINT: PRINT: PRINT"DO Y 

OU WANT INSTRUCTIONS" 

250 INPUT L* 

260 IFL*«"N0"THEN650 

270 CLS: PR I NT "YOU ARE COMBUTRON 

X ROBOT THE" 
280 PR I NT "MOST ADVANCED ROBOT KN 
OWN. UPON" 

290 PR I NT "YOUR ARRIVAL AT YOUR H 
OME BASE" 

300 PR I NT "YOU ARE INFORMED THAT 
YOUR" 

310 PR I NT "CREATOR HAS BEEN CAPTU 
RED BY" 

320 PR I NT "THE EVIL WARLORD AND T 
AKEN TO" 

330 PR I NT "THE SPACE STATION SPAR 
TA. IT IS" 

340 PRINT" IMPERATIVE FOR YOU TO 
RESCUE" 

350 PR I NT "YOUR CREATOR FOR HE IS 
SOLELY" 

360 PR I NT "RESPONSIBLE FOR MAINTA 
INING YOU" 

370 PR I NT "AND YOUR KIND. ATTEMPT 
ED MAIN-" 

380 PRINT"TENENCE OR REPAIR BY A 
NOTHER" 

390 PRINT: PR I NT "PRESS ANY KEY TO 

80 ON" 
400 L*=INKEY* 
410 IF L«=""THEN 400 
420 CLS: PR I NT "BEING WOULD CAUSE 
IMMEDIATE" 

430 PR I NT "SELF-DESTRUCT I ON BY ME 
ANS OF AN" 

440 PR I NT "ANT I -TAMPERING DEVICE 
INSTALLED" 

450 PR I NT "BY THE CREATOR." 

460 PR I NT "ABOARD SPARTA YOU MAY 

MOVE IN" 

470 PRINT"ONE OF SIX DIRECTIONS: 
NORTH. " 

480 PR I NT " SOUTH , EAST , WEST , UP , AND 
DOWN. " 

490 PRINT" INDICATE DIRECTION BY 
ENTERING" 

(Rick Townnend i.s a self-taught computer enthusiast 
who works as a computer operator for United Totalisator 
International. Thomas Hollerback, co-author, is a 1983 
graduate of Central Michigan University and a perspec- 
tive CPA. Both men enjoy video and Adventure games.) 
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500 PR I NT "THE FIRST LETTER OF TH 
E DESIRED" 

510 PRINT"DIRECTION. EXAMPLE: (NO 
RTH) TYPE" 

520 PRINT" (N). YOU FUNTION USINQ 
EITHER" 

530 PR I NT "ONE OR TWO WORD COMMAN 
DS " 

540 PR I NT: PR I NT "PRESS ANY KEY TO 

60 ON" 
550 L»«INKEY» 
560 IF L«="" THEN 550 
570 CLS:PRINT"THE FIRST BEINS A 
VERB AND THE" 

SaO PRINT "SECOND WORD A NOUN. EX 
AMPLE: " 

590 PR I NT "EAT APPLE." 
600 PRINT"YOUR MISSION: FIND THE 
CREATOR" 

610 PR I NT "ABOARD THE SPACE STAT I 
ON SPARTA" 

620 PR I NT "AND ESCAPE. " 

630 PR I NT "PLEASE STANDBY TO BE B 

EAMED" 

640 PR I NT "ABOARD SPARTA. GOOD LU 

CK! " 

650 PRINT: PRINT: PRINT: PRINT"ENTE 
R 'POKE 25, 6: POKE 26, 1: NEW' BEFO 
RE LOADING 'SPAST2'" 
660 END 



130 R0<2)-l:R0(13)»l:R0(22}«l:R0 
<30)»1:R0<32)-1 

140 F0RX-1T033: IFRO<X>=lTHENAC<X 
> -20ELSE I FHU ( X ) = 1 THENAC ( X ) « 1 O 
150 NEXTX 

160 F0RX=1T04:LC<X)=1:NEXT X 
170 FOR X-1T03 
180 RD»RND(33> 

190 IFR0(RD)»1 OR HU(RD)»1 THEN 
180 

200 ro<rd)»i:ac(RD>'»20:next x 

210 F0RX=1T033:READA*: NEXTX 
220 F0RX-1T033:READRN«<X} : NEXTX 

230 F0RX=1T033:F0RY=1T06:READRM( 

x,Y> :nexty,x 

240 RESTORE 
250 CLS 

260 PR I NT "YOUR IN THE ";RN*<YOU) 
270 F0RX-1TDY0U:READA«: NEXTX 

280 RESTORE 

290 PR I NT "YOU SEE "I A* 

300 PR I NT "EX ITS ARE:" 

310 I FRM < YOU , 1 ) >OTHENPR I NT " ( NORT 

H) "; 

320 I FRM < YOU , 2 > >OTHENPR I NT " < SOUT 
H> "; 

330 I FRM < YOU , 3 ) >OTHENPR I NT " ( EAST 
)"S 

340 I FRM < YOU , 4 > >OTHENPR I NT " ( WEST 

)"; 

350 I FRM < YOU , 5 ) >OTHENPR I NT " ( UP ) " 



Listing 2 



110....01B7 1000 
350....038F 1360 
530.... 0764 1560 
790....0D23 1730 
END 



. . 121A 
. . 16E9 
. .1A3E 
. . 1F78 
. . 2534 



iO REM **»« ESCAPE FROM SPARTA * 
**# 

20 REM »♦»* BY RICK TOWNSEND & T 
OM HOLLERBACK 

30 REM »♦»* REVISION 4 8/4/82 
40 CLS : PR I NT<i204 , " STANDBY " 
50 Y0U=30:T=0 
60 R-RND<31> 

70 IFR>19THENR-20ELSEIFR>27THENR 

=5ELSER=23 

80 CR=R 

90 DIM RN«<33) ,A*(50> ,RM(33,6) ,C 
0 (33) , RO <33} , HU (33) , AC (33) 
100 EN»800:BA-2 

110 C0(14)='2:C0(18)«2:C0(19>=2:C 
0(27)=2:CO(29)=l:CO(31>=l:CO(33) 
=3 

120 HU(8>«l:HU(14)»l:HU(19)>l:HU 
(20)»l:HU(18)=l 



360 IFRM ( YOU, 6) >OTHENPRINT" (DOWN 
>"? 

370 PRINT 

380 IF EN<=100THENPRINT"ENERGY L 
DW! " 

390 IFEN<=OTHEN 2160 
400 IFT-0THEN430 

410 IFTIMER<3855THENT=4ELSEIFTIM 
ER< 77 1 0THENT-3ELSE I FT IMER< 1 1 565T 
HENT=2ELSE I FT I MER< 1 5420THENT= 1 EL 
SE I FT I MER > 1 5700THEN2220 
420 PR I NT "YOU ONLY HAVE "jTj" MI 
NUTES LEFT" 

430 IF R0(Y0U>-2 THEN PR I NT "THE 

RUBBLE OF A DESTROYED ROBOT HERE 

"ELSE IF HU(Y0U>-2 THEN PRINT"TH 

ERE IS A DEAD HUMAN HERE" 

440 IF CR=YOU THEN PR I NT "THERE I 

S THE CREATOR "ELSE 450 

450 K=0:IF R0(Y0U)=1 OR HU(YOU>= 

1THEN460ELSE500 

460 IFRO ( YOU) -lTHENE*="ROBOT"ELS 
EE*=" HUMAN" 

470 PR I NT "ENEMY "JE*;" ATTACKING 

II 

480 D«=INKEY*:K»K+l: IF K>55 THEN 
1670 

490 IF D«=«""THEN480ELSE500 
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500 IF CO<YOU>— 2THENPRINT"T0 US 
E CONSOLE TYPE IN 

510 print:line input"do what?"; I 

« 

520 IF I*="*"THEN 1740 

530 IF I1i«"FIRE"THEN1450ELSEIF L 

EFT* ( I * , 3 > = " I NV " THEN 1 680ELSE I F L 

EN < I « ) - 1 THEN 1 300ELSE I F I «- " QU I T " 

OR I *= " STOP " THEN2 1 50ELSE I F I *= " LO 

OK " THEN 1 070ELSE I FLEFT* < I ♦ , 4 > - " RE 

CH"THEN1210 

540 S=INSTR<1, I*, " •■) : IFS=OTHEN5 
90ELSEB«-LEFT* < I«, S-1 > : C«-MID» ( I 
*,S+1) 
550 G«>B« 

560 IFB«="KILL" OR B*=" SHOOT "THE 
N B«= "FIRE "ELSE IF B«»" SEARCH "THE 
N B«= " LOOK " ELSE I FB*= " PUT " THENB*- 
" ENTER " ELSE I FB«= " TAKE " THENB«= " BE 
T " ELSE I FB«= " I NSERT " THENB«= " ENTER 
" ELSE I FB«= " UNLOCK " THENB»= " OPEN " 
570 I FC»= " ROBOT " THENC*- " RUBBLE " 
580 I FB*= " CLOSE " THEN600ELSE I FB«» 
" OPEN " THEN620ELSE I FB«= " ENTER " THE 
N650ELSE I FB*= " OFF " THEN740ELSE I FB 
«= " ON " THEN790ELSE I FB*= " GET " THEN8 
40ELSE I FB«= " LOOK " THEN990ELSE I FB* 
="MOVE" OR B*="PULL" THEN1250ELS 
E I FLEFT* < B* , 4 ) = " RECH " THEN 121 OELS 
E I FB*= " USE " THEN970 

590 I FB*= " F I RE " THEN 1 450ELSEPR I NT 
"THAT DOES NOT COMPUTE ": SOTO 380 
600 IFC*="D00R"THEN610ELSE630 
610 PR I NT "YOU CAN'T CLOSE DOORS 
MANUALLY": GOTO 380 
620 IFC*="D00R"THEN64O 
630 PRINTG*S" WHAT?": GOTO 380 
640 PR I NT "YOU CAN'T OPEN DOORS M 
ANUALLY":GOTO 380 

650 IF RIGHT*(C*,4)="CHIP"THEN66 
0EL8E630 

660 I FLEFT* < C* , 3 ) <> " RED " THEN670E 
LSE I FCO ( YOU > -0THEN700ELSE I FCO < YO 
U ) =- 1 THEN7 1 OELSE I FRC ( 2 ) =0THEN720 
ELSE I FCO < YOU ) > 1 THEN730ELSEPR I NT " 
SECUR I TY CLEARANCE O . K . " : RC ( 1 ) «= Y 
OU: RC (2) =RC <2) -1 : CO ( YOU) «-l : GOTO 
380 

670 I FLEFT* < C* , 5 ) <> " GREEN " THEN68 
OELSE I F CO ( YOU ) =OTHEN700ELSE I FCO 

< YOU > =- 1 THEN7 1 OELSE I FGC < 2 ) =OTHEN 
720ELSEIFC0 ( YOU) >2THEN730ELSEPRI 
NT " SECUR I T Y CLEARANCE O . K . " : GC < 1 
) =YOU: QC <2) =QC (2) -1 : CO < YOU) =-1 : G 
OTO 380 

680 I FLEFT* ( C* , 6 ) <> " S I L VER " THEN6 
90ELSE I FCO < YOU ) =OTHEN700ELSE I FCO 

< YOU ) =- 1 THEN7 1 OELSE I FSC < 2 ) =OTHEN 
720ELSEPR I NT "SECURITY CLEARANCE 
0. K. " : SC < 1 ) -YOU: SC <2) -O: CO (YOU) - 



-l:GOTO 380 

690 PRINT"! CAN'T HANDLE A "|C*: 

GOTO 380 

700 PR I NT "THERE IS NO CONSOLE HE 
RE": GOTO 380 

710 PR I NT "THERE IS ALREADY A "SC 
*i" THERE": GOTO 380 
720 PR I NT "YOU DON'T HAVE A »;C*: 
GOTO 380 

730 PR I NT "YOU DONT HAVE SECURITY 

CLEARANCE": GOTO 380 
740 I FC*= " CONSOLE " THEN750ELSE630 
750 I FCO ( YOU ) "0THEN760ELSE770 
760 PR I NT "THERE IS NO CONSOLE HE 
RE":G0T0380 

770 I FCO < YOU ) >=- 1 THEN780ELSEC0 < Y 
OU)=-l:PRINT"CONSOLE IS OFF": GOT 
O 380 

780 PR I NT "CONSOLE WAS NOT ON": GO 
TO 380 

790 I FC*= " CONSOLE " THEN800ELSE630 

800 IFC0<YOU)=0THEN76O 

810 IFC0<Y0U)<>-lTHENa30 

820 CO (YOU)— 2: PR I NT "CONSOLE IS 

ON": GOTO 380 

S30 PR I NT "YOU DO NOT HAVE SECUR I 
TY CLEARANCE TO OPERATE C 

ONSOLE":GOTO 380 

840 IF C«-"REDCHIP"THEN8S0ELSEIF 

C*= " GREENCH IP" THEN880ELSE I FC*= " S 
I L VERCH I P " THEN900ELSE I FLEFT* ( C« , 
3 ) = " CRE " THEN950ELSE I FLEFT* ( C* , 3 > 
= " BAT " THEN960ELSE I FC*- " FOOD " THEN 
980ELSE630 

850 IFC0(Y0U)=-2 THEN930ELSEIFRC 
(1)=Y0U THENPRINT"O.K. YOU HAVE 
THE "JC* ELSE920 

860 IF CO(YOU) — 1 THEN CO (YOU) -1 
870 RC(2)=RC<2)+l:R0(Y0U)=»0:RC(l 
)=0:GOTO 380 

880 IFC0(Y0U)=-2 THEN930ELSEIF G 
C(1)»Y0U THENPRINT"O.K. YOU HAVE 

THE ";C* ELSE920 
890 GC(2)=GC(2)+l:HU(Y0U)=0:GC(l 
)«0:G0T0 380 

900 IFSC(1)=Y0U AND CO (YOU) =-2 T 
HEN 940ELSEIFSC(1)=Y0U THEN PR IN 
T"O.K. YOU HAVE THE "JC* ELSE 92 

O 

910 SC(2)=l:SC(l)=>0:G0T0 380 
920 PR I NT "THERE IS NO ";C*;" HER 
E":GOT0380 

930 PR I NT "YOU CANT GET OUT THE " 
;C*:G0T0380 

940 PR I NT "YOU CAN'T GET THE ";C* 
;" WHILE THE CONSOLE IS ON": GOTO 
380 

950 IFCROYOU THEN920ELSEPRINT"0 
.K. YOU RESCUED THE CREATOR NOW 

LETS GET OUT OF HERE" : CR=-2: GOTO 
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380 

940 I F YOU< >22THEN920ELSEPR I NT " I T 

IS TOO BIO TO CARRY ":B0T0380 
970 PR I NT " HOW? " : S0T0380 
980 PR I NT "ROBOTS DON'T NEED FOOD 
":SOTO 380 

990 I FC*= " RUBBLE " THEN 101 OELSE I FC 
«= " HUMAN " THEN 1 050ELSE I FC«= " ROOM " 
THEN 1 070ELSE I FC*= " CONSOLE " THEN 1 O 
80ELSE I FC*= " ENERB Y " THEN 1 1 OOELSE I 
FRIGHT* <C*, 4) »"CHIP»THEN1 1 lOELSE 
I FLEFT* < C* , 3 ) = " LE V " THEN 1 1 40ELSE I 
FLEFT* < C* , 3 ) = " EQU " THEN 1 1 60ELSE I F 
LEFT* ( C* , 3 ) = " BAT " THEN 1 1 80 
1000 PR I NT "I DON'T SEE ANYTHING 
INTERESTING": GOTO 380 
1010 IF R0<Y0U>=2THEN1020ELSEIFR 
0<Y0U)=1THEN1030ELSEIF RO(YOU>=0 
THEN 1 040ELSE I FRC < 1 X >YOU THEN 1 0 
00 

1020 RC<1>=Y0U:PRINT"THERE IS A 

REDCHIP HERE":G0T0380 

1030 PR I NT "ARE YOU CRAZY THE ";C 

*;" IS FIRING AT ME":GaT038 

O 

1040 PR I NT "I DON'T SEE ANYTHING 
HERE":G0T0380 

1050 if you-20 and hu<20>«2 then 
1060elseif hu (you) "1 then 1030else 
if hu<you)=0 then 1 040else i fgc ( 1 
)<>you then1000elseprint"there i 
s a greenchip here " : g0t0380 
1060 ifsc<2)=1then1000elsesc<1>= 
you:print"this is the captain an 
d there is a silverchip here": go 

TO 380 

1070 cls:print"i can only DESCRI 

BE THE room AGAIN": GOTO 260 
1 080 I FCO ( YOU ) =-2THENPR I NT " CONSO 
LE IS ON "ELSE IF CO ( YOU > =OTHENPR 
I NT "THERE IS NO CONSOLE HERE "ELS 
EPR I NT "CONSOLE IS OFF" 
1090 GOTO 380 

1100 PR I NT "ENERGY LEFT= ";EN:GOT 
0 380 

1110 IFRC<2)>0 OR GC(2)>0 OR SC ( 
2) >0 THEN1130 

1120 PRINT"YOU DON'T HAVE A "JC* 

: G0T0380 

1130 PRINT"LOOKS LIKE A "JC*!" M 
IGHT BE USEFUL": GOTO 380 
1140 IF Y0U=13 THENPRINT"IT'S FO 
R CONTROL I NG THE REACTOR "ELSE630 
1150 60T0380 

1160 IF Y0U=22 THEN1170ELSE1000 
1170 PR I NT "YOU SEE A GIANT BATTE 
RY HERE": GOTO 380 

1180 IF Y0U<>22THEN920ELSEIFBA>0 
THEN1200 

1190 PR I NT "BATTERY IS DEAD": GOTO 



380 

1200 PR I NT "THERE IS "JBAJ" CHARG 
ES LEFT": GOTO 380 

1210 I F YOU< >22THEN 1 240ELSE I FB A=0 
THEN 1230 

1 220 BA=BA- 1 : EN=EN+ 1 00 : PR I NT " YOU 

HAVE RECHARGED 100 UN ITS": GOTO 
380 

1230 PR I NT "SORRY! THE BATTERY IS 

DEAD": GOTO 380 
1240 PR I NT "WITH WHAT?": GOTO 380 
1250 IFLEFT*(C*,3)="LEV" AND YOU 
=13 AND T=0THEN1260ELSEIFT>0THEN 
1290ELSE630 
1260 T=4:F0RX=1T0200 
1 270 CLS : PR I NTa204 , " WARN I NQ " : NE X 
TX 

1280 CLS:TIMER=0:PRINT"NUCLEAR r 
EACTOR WILL EXPLODE IN 4 MINUTES 
" : G0T0380 
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•auiBS aq; qSnojq; noA A\\nj 
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ajB Xaqx 'auiBS aq; o; sXa7[ aq; aJB 8diq3jaA|ig puB 
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ui 8;oq8 OAv; q;iAi ;iq aq o; aABq s;oqoj Xuiaug "uiooj 
auo ui Jo;Baja aq; s;nd X{uiopuBJ uiBjSojd aqj^ 



1290 PR I NT "NOTHING WILL STOP THE 
REACTOR FROM EXPLODING" : G0T0380 
1300 IF I*="N"THEN1320ELSEIFI*=" 
S " THEN 1 330ELSE I F I *= " E " THEN 1 340EL 
SE I F I *= " W " THEN 1 350ELSE I F I *= " U " TH 
EN 1 360ELSE I F I *= " D " THEN 1 370 
1310 PR I NT "THAT DOES NOT COMPUTE 
":GOTO 380 
1320 Y=l:GOTO 1380 
1330 Y=2:G0T0 1380 
1340 Y=3:G0T0 1380 
1350 Y=4:G0T0 1380 
1360 Y=5:G0T0 1380 
1370 Y=6 

1380 IF RM<YOU, Y)<>0THEN1390ELSE 
PR I NT "CAN'T GO THAT WAY": GOTO 38 

0 
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1390 IF Y0U=29 AND I*="E" AND LC 
(1>=1 THEN 1440 

1400 IF Y0U=31 AND I*="W" AND LC 
<2)=1 THEN 1440 

1410 IF Y0U=31 AND I««"S" AND LC 
(3)=1 THEN 1440 

1420 IF Y0U=18 AND I«="W" AND LC 
<4)=1 THEN 1440 

1 430 YOU«RM ( YOU , Y > : EN-EN- 1 0 : GOTO 
250 

1440 PR I NT "DOOR IS LOCKED" : GOTO 
380 

1450 IFR0(Y0U)«1THEN1470ELSEIFHU 
<Y0U)=1THEN1570 

1460 PR I NT "YOU JUST WASTED 10 EN 
ERGY UNITS FDR NOTHING" : EN=EN- 10 
:60T0 380 

1470 R<1)=RND(50> :R<2)=RND(50) :R 

<3>=R<1)+R<2) 

1480 IF R(3) >50THEN1500 

1490 PRINT"SHOT HIT" : AC <YOU) -AC < 

YOU ) - 1 O : EN=EN- 1 O : GOTO 1510 

1500 PR I NT "SHOT MISSED" : EN=EN- 10 

1510 IFAC<Y0U)<=0THEN1560 

1520 R(1)=RND(50) :R(2)=RND(50> :R 

<3)=R<1)+R(2> 

1530 IF R(3) >50THEN1550 

1540 PRINT"SHOT JUST HIT YOU": EN 

=EN-10:G0T0 380 

1550 PR I NT "SHOT JUST MISSED YOU" 
:G0T0 380 

15&0 PRINT"ROBOT JUST EXPLODED I 

N TO RUBBLE AND IS DESTROYED" : RO < 

YOU > =2 : RC < 1 ) -YOU : GOTO 380 

1570 R<1)=RND(50) :R<2)=RND(50) :R 

<3>=R<2)+R<1) 

1580 IF R(3) >60THEN1600 

1590 PR I NT "SHOT MISSED" : EN=EN- 10 

:QOTO 1610 

1600 print"shot hit" : ac (you) «ac < 

you>-io:en«en-io 

1610 ifac(y0u)<=0then1660 

1620 R(1)=RND<50) :R(2)=RND<50) :R 

(3>=R(2>+R<1) 

1630 IFR(3) >50THEN1650 

1640 PR I NT "SHOT JUST HIT YOU": EN 

=EN-8:G0T0 380 

1650 PR I NT "SHOT JUST MISSED YOU" 
:goto 380 

1660 PR I NT "HUMAN IS DEAD" :HU (YOU 

)=2:GC(l)=YOU: IF HU(YOU)=19THEN 

SC(1)=Y0U ELSE 380 

1670 IF R0(Y0U)=1THEN 1510ELSE 1 

610 

1680 CLS: PR I NT "ENERGY LEFT= "JEN 
1690 IF RC(2) >0THENPRINT"Y0U HAV 
E ";RC(2)5" REDCHIPS" 
1 700 I F6C ( 2 ) >OTHENPR I NT " YOU HAVE 

" ; GC ( 2 ) ; " GREENCH I PS " 
1710 IFSC(2> >OTHENPRINT"YOU HAVE 



";SC(2>J" SILVERCHIPS" 
1720 IFCR=-2THENPRINT"Y0U HAVE T 
HE CREATOR" 
1730 GOTO 260 
1740 CLS 

1750 PR I NT "CONSOLE READY TO E 

XIT FROM COMPUTER MODE TYPE 'X 

3> II 

1 760 PR I NT : I NPUT " I NPUT REQUEST " f 
I« 

1770 IF I«="X"THEN250 

1780 S=INSTR(I*," ") : IFS=0THEN19 

80ELSEB«=LEFT« ( I*, S-1 ) : C*=MID« ( I 

*,S+1> 

1790 G«-B« 

1 800 I FB«= " UNLOCK " THENB*= " OPEN " E 
LSE I FB*= " LOCK " THENB«= " CLOSE " ELSE 
I FB*= " BLAST " THENB*= " TAKE " ELSE I FB 
*= " LOCATE " THENB*= " F I ND " ELSE I FB« 
=" LAUNCH" OR B*="LIFT"THENB*="TA 
KE" 

1810 IFC*="POD"THENC*="OFF" 
1 820 I FB*= " OPEN " THEN 1 840ELSE I FB* 
= " CLOSE " THEN 1 920ELSE I FB«= " TAKE " T 
HEN 1 940ELSE I FB«= " F I ND " THEN2000 
1830 PR I NT "THAT DOES NOT COMPUTE 
": GOTO 1750 

1 840 I FLEFT* ( C* , 3 > = " DOO " THEN 1 850 
ELSE 1990 

1850 IF Y0U«29 AND LC(1)»1 THENP 

R I NT "DOOR IS UNLOCKED "ELSE 1870 

I860 LC(1)=0:G0T01750 

1870 IFYOU-31 AND LC(2)=1 THENPR 

I NT "DOORS ARE UNLOCKED "ELSE 1890 

1880 LC(2)=0:LC(3>=0:G0T01750 

1890 IF Y0U=18 AND LC ( 4 >= 1 THENPR 

I NT "DOOR IS UNL0CKED"ELSE1910 

1900 LC(4>=0:G0T01750 

1910 PR I NT "DOORS WERE UNLOCKED": 

GOTO 1750 

1 920 I FLEFT* ( C* , 3 ) = " DOO " THEN 1 930 
ELSE 1990 

1930 PR I NT "DOORS ARE ON A TIMER 
AND WILL NOT RESPOND ": GOTO 175 
0 

1 940 I FC*= " OFF " THEN 1 950ELSE 1 990 
1950 IFY0U=27 OR Y0U=33THEN 1 960E 
LSE 1970 

I960 PR I NT "YOU HAVE JUST BLASTED 

OFF INTO SPACE": GOTO 2170 
1970 PR I NT "ARE YOU CRAZY": GOTO 1 
750 

1980 PR I NT "PLEASE USE 2 WORD COM 
MANDS":GOTO 1750 

1990 PRINTG*;" WHAT?": GOTO 1750 
2000 I FLEFT* ( C* , 3 ) = " CRE " THEN20 1 O 
ELSE 1990 

2010 IFY0U=14THENPRINT"CREAT0R I 
S IN THE ";RN*(CR>ELSEPRINT"UNAU 
THORIZED REQUEST THIS AREA" 
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2020 GOTO 1750 

2030 DATA A PANEL OF MONITORING 

INSTRUMENT GAUGES, A LARGE CONT 
ROL PANEL WITH METERS, BEDS ON 
THE EAST WALL 

2040 DATA VIDEO GAMES AND OTHER 

RECREATIONAL EQUIPTMENT, THIS A 
REA IS USED FOR HOLDING CAPTIV 
ES, SMASHED EQUIPTMENT EVERYWHERE 
2050 DATA FOOD AND DRINK STORED 

HERE, POTS PANS AND KITCHEN A 
PPL I ANCES, TABLES AND CHAIRS EVER 
Y-WHERE,A BR ILL ANT STAR CLUSTER 
OUT THE WINDOW, TRACES OF YOUR CR 
EATOR'S BELONGINGS, BROKEN LIGHTS 

AND DESTR-OYED EQUIPTMENT 
2060 DATA POWER GAUGES AND LEVER 
S,A BED ic COMPUTER CONSOLE , REPA I 
R TOOLS AND PARTS, THE DOCTORS OF 
FICE WITH CONSOLE ON THE DESK, BE 
DS AND MEDICAL EQUIPTMENT, MAIN C 
OMPUTER & CONSOLE, HALF SMASHED E 
LECTRONIC EQUIPTMENT, A BED AND T 
HE CAPTAIN'S BELONGINGS 
2070 DATA SMASHED WEAPONS OF EVE 
RY SORT, ROBOT REPAIR EQUIPTMENT, 
LAB ANIMALS & ELECTRONIC EQUIPTM 
ENT,A BRILLIANT STAR CLUSTER OUT 

THE WINDOW, THE PLANET BELOW, BRO 
KEN EQUIPTMENT EVERY-WHERE, A COM 
PUTER CONSOLE 

2080 DATA GAUGES AND EQUIPTMENT 
ALL AROUND, A COMPUTER CONSOLE 
IN THE MIDDLE, BROKEN MONITORS 
EVERY- WHERE, A COMPUTER CONSOLE 
IN THE CENTER, GAUGES AND EQUI 
PTMENT EVERYWHERE, A COMPUTER C 
ONSOLE 

2090 DATA SOLAR PL ANT , GRAV I T Y CO 
NTROL ROOM, CREW QUARTERS , RECREAT 
ION ROOM, DETENTION ROOM, COMMON I C 
AT I ON ROOM, STORAGE ROOM, KITCHEN, 
GALLEY, TUNNEL #1, TUNNEL »2,TUNNE 
L #3 

2100 DATA NUCLEAR REACTOR ROOM,E 
N6INEERS QUARTERS, MA I NTANCE ROOM 
, DOCTORS QUARTERS, SICK BAY,COMPU 



TER ROOM, CONTROL ROOM, CAPTAIN QU 
ARTERS, WEAPON ROOM, ROBOT REPAIR 
ROOM, LAB, TUNNEL #4, TUNNEL #5, TUN 
NEL #6 

2110 DATA ESCAPE POD #1, DOCKING 
BAY #1,T0P ACCESS CHAMBER , SECUR I 
TY ROOM, BOTTOM ACCESS CHAM 
BER, DOCKING BAY #2, ESCAPE POD #2 
2120 DATA 0,2,0,0,0,0,1,3,0,12,0 
,0,2,4,0,0,0,0,3,0,0,0,0,0,0,0,0 
,6,0,0, 11,0,5,0,0,0,8,0,0,0,0,0, 
9,7, 10,0,0,0,0,8,0,0,0,0,0,0,29, 
8,0,0,29,6,0,0,0,0,0,0,2,29,0,0 
2130 DATA 0,14,0,0,0,0,13,15,0,2 
6,0,0, 14,0,0,0,0,0,0,0,0, 17,0,0, 
0,0, 16, 18,0,0,25,0, 17, 19,0,0,20, 
0, 18,0,0,0,21, 19,0,0,0,0,0,20,0, 
0,0,0,23,0,24,0,0,0,0,22,0,0,0,0 
,0,0,31,22,0,0,31, 18,0,0,0,0,0,0 
, 14,31,0,0 

2140 DATA 0,0,0,0,0,28,0,0,0,0,2 
7,29,0, 11, 12, 10,28,30,0,0,0,0,29 
,31,0,25,26,24,30,32,0,0,0,0,31, 
33,0,0,0,0,32,0 

2150 CLS: PR I NT "WELL I DON'T THIN 
K I'LL SEND YOU ON ANY RESCUE MI 
SSIONS AGAIN": GOTO 2230 
2160 CLS: PR I NT "YOU RAN OUT OF EN 
ERGY":PRINT"THE CREATOR IS DOOME 
D":G0T02230 
2170 IFCR=-2THEN2210 
2180 IFT>0THEN2190ELSE2200 
2190 PR I NT "GOT OUT BEFORE THE ST 
AT I ON EXPLODED BUT LEFT THE 

CREATOR THERE YOU CHICKEN": GO 
T02230 

2200 PR I NT "YOU BLASTED OFF WITHO 
UT THE CREATOR. YOU FAILED YO 

UR MISSI0N":G0T02230 
2210 PR I NT "CONGRATULATIONS! ! ! ! ! 

YOU SAVED THE CREATOR WITH ";E 
NS" UNITS TO SPARE": GOTO 2230 
2220 PR I NT "SPACE STATION SPARTA 
EXPLODED! THE CREATOR AND YOU A 
RE SPACE DUST":G0T02230 
2230 END 
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It's a jungle out there, but the latest news 
on the Color Computer grapevine is that, above the swirling mists of 
confusion, more and more people are 




discovering the Rainbow. 

Now in its third year, the Rainbow 
has beconne the standard by which all 
other Color Computer magazines are 
compared. And no wonder! The Rainbow 
towers above the crowd, now offering 
more than 300 pages each month, 
including more than two dozen type-in- 
and-run program listings, a host of articles and 
in excess of 30 hardware and software product 
reviews. 

We lead the pack in Color Computer publica- 
tions and are devoted exclusively to the TRS-80® 
Color, TDP-100 and Dragon-32. We made our 
climb to the top by continually offering the best 
and the most by such well-known authors and 



innovators as Bob Albrecht and Don In- 
man, and games from top programmers 
like Chris Latham, Fred Scerbo and 
John Fraysse. The Rainbow offers the 
most in entertainment and education, 
home uses, technical details and hard- 
■'■ ware projects, tutorials, utilities, 
graphics and special features like Rainbow 
Scoreboard and our new CoCo Clubs section. 

For only $28 a year, you get the keys to all 
the secrets locked in your CoCo! 

Are you searching through the jungle of 
claims and clamor? Climb above it all. Look up. 
Find the Rainbow. 

® Registered irademarh o\ FalsoU Inc 
@ Registered trademark me Tandy Corp 
© 1983 the Rainbow 
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The Perfect 
Companion 
For Your 




New Portable Computer 



There's a new and exciting computer on the block — Radio Shack's 
TRS-80® Model 100 Portable Computer. It promises to be one of the 
most significant advances in personal computing of the 1980's! 

And, now, there's a new and just-as-exciting magazine specifically 
devoted to your Portable Computer. It is called PCM— The Portable 
Computing Magazine, and it is published by the same people who bring 
you the most popular Color Computer magazine in the world — the 
Rainbow. 

PCM— The Portable Computing Magazine sells for $3 per copy and 
$28 a year by subscription. If, after seeing your first issue, you find it is 
not for you, just let us know. We'll happily, cheerfully and immediately 
refund your entire subscription payment. We're that confident that you'll 
love PCM. After all, it is The Portable Computing Magazine! 
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